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1, ABSTRACT 

The function of the DMC11 diagnostics is to verify that the 
option operates according to specifications. The diagnostics 
verfiy that there are no malfunctions and the all operations 
of the DMCU are correct in its environment. 

Parameters must be set up to alert the diagnostics to the 
DMCll configuration. These parameters are contained in the 
status TABLE and are generated in two wayst 1) Manual 
Input - the operator answers guestions, 2) Autosizing • the 
program determines the parameters automatically, 

dzdmh tests the DMCH-AL »icro-proc«ssor (M8200-YB) with high 
speed crom, or the KMCli micro-processor (M8204), it performs 
lump tests on the micro-processor* verifies the control ROM of 
the M8200-YB, and tests the CRAM an<i other unigue functions of 
the M8204. If a DMCil-AL (M8200-YB) and line unit (M8202-YA 
or M8202-YD) are present, free-running tests are performed. 
These tests are skipped if a KMC (M8204) or no line-unit is 
present. The best test is with a line-unit installed. DZDMH 
can be used as a Heat Test Diagnostic by Manufacturing, 

Currently there are four off line diagnostics that are to be 
run in sequence to Insure that :.f an error should occur it 
will be detected at an early stage, 

NOTE: Additional diagnostics may be added in the future. 
The four diagnostics arei 

1, dzdmc [REV] Basic w/R and Micro-processor tests 

2, DZDME [REV] DDCMp Line unit tests 

3, OZDMF [REV] BITSTUFF Line unit tests 

4, DZDMG [REV] Low speed jump and Free-running tests (Heat 
test tape) NOTE: DZDMG IS RUN ONLY ON A DMC11-AR (M8200-YA), 

DZDMH [REV] High soeed jump ard Free-running tests (Heat 
test tape) MOTEi DZDMH IS RUN ONLY (>N A DMCU-AL (M8200-YB), 

2, REQUIREMENTS 

2,1 EQUIPMENT 

Any PDPH family CPU (except an LSI-11) with minimum 8k memory 
asp 33 (or eguilivalent) 

DMCil-AL (M8200-YB) or an KMC11-A (»8204) with a DMCll-MA or a 
DMCl 1-MD 
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2.2 STORAGE 

Program will use all 8K of memory except where ABL and 
BOOTSTRAP LOADER reside. Locations 1500 thru 1640» contain 
the "STATUS TABLE" information which is generated at start of 
diagnostics by manual input (questions) or automatically 
(auto-sizing) , This area is an overlay area and should not be 
altered by the operator, 

3. LOADING PROCEEDURE 

3.1 METHOD 

All programs are in absolute format and are loaded using the 
ABSOLUTE LOADER. NOTE* if the diagnostics are on a media such 
as DISK r MAGTAPE? DEC TAPE # or CASSETTE; Ifollow instructions 
for the monitor which has been provided on that specific 
media , 

ABSOLUTE LOADER starting address *500 

MEMORY # SIZE 

4k 17 

8k 37 

12k 57 

16k 77 

20k 117 

24k 137 

28k 157 



3.1.1 Place address of ABS loader into switch register, 

(also place 'HALT* sw up) 

3.1.2 Depress "LOAD ADDRESS* key on console and release. 

3,), 3 Depress "START KEY* on console and release (program should now 
be loading into CPU) 
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STARTING PROCEEDURE 

a. Set switch register to 000200 

p. Depress 'LOAD ADDRESS* Key and release 

c, set swr to zero for *AUT0 SIZIN3' or SWR bito«l for manual 
input (questions) or SWR bit7al to use existing parameters 
set up by a previous start or a previously run DMC11 
diagnostic, 

d. Depress 'START KEY' and release. The program will type 
Malndec Name and program name (if this was the first start 
up of the program) and also the following* 

MAP OF DMC11 STATUS 



PC CSR STAT1 STAT2 STAT3 



001500 160010 145310 177777 000000 
001510 160020 145320 177777 000000 

The program will type »R' and procesd to run the diagnostic. 
The above Is only an example. This would indicate the status 
table starting at add, 1500 in the program. In this example 
the table contains the Information and status of two DMCH'S, 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 

IS DONE, For information of statui table see section 8,4 for 
help. 

If the diagnostic was started with SWOOal indicating manual 
parameter input then the following shows an example of the 
questions asked and some example answers} 

HOW MANY DMCU'S TO BE TESTED? 1 

01 

CSR ADDRESS7160010 

VECTOR ADDRESS?3tO 

BR PRIORITY LE'VEL? (4,5,6,7)75 

DOES MICRO-PROCESSOR HAVE CRAM? (Y OR N)N 

WHICH LINE UNIT? IF NONE TYPE "N", IF M8201 TYPE "1% IF 
M8202 TYPE "2"?1 

IS THE LOOP BACK CONNECTOR ON?Y 
SWITCH PAC#1 (DDCMP LINE#)?377 
SWITCH PAC#2 (BM873 BOOT ADD)?377 

Following the questions the status map is printed out as 
described above, the information in the map reflects the 
answers to the questions. If the diagnostic was started with 
swooao and SW07«0 (AUTO-SIZING) *:hen no questions are asked 
and only the status-map is printed out. If AUTO-SIZING is 
used the status information must be verified to be correct 
(match the hardware), if it does not match the hardware the 
diagnostic must oe restarted with SW00=i and the questions 
answered , 



PAGEl 0004 



Page 5 



CONTROL SWITCH SETTINGS 
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sw 


10 


S<! 


tl 


Escape to next test en error 




sw 


09 


S<! 


tl 


Loop with current data 




SW 


08 


S<! 


tl 


Catch error and loop on it 




sw 


07 


Si! 


t: 


Use previous status table. 




sw 


06 


Si! 


t: 


Halt In R0MCLK routine before 
micro-processor 


clocking 


sw 


05 


Si! 


t« 


Reserved 




sw 


04 


Si! 


t: 


Reserved 




SW 


03 


Si! 


1 1 


Reselect DMCii's desired active 




sw 


02 


Si! 


ti 


Lock on selected test 




sw 


01 


Si! 


tt 


Restart program at selected test 




SW 


00 


SI! 


ti 


Build new status table from questions. 


(If SW07=0 



and SW00*0 a 
auto-sizing) 



new status table is built by 



Switch 06 and 08-15 art dynamic and can be changed as needed 
while the diagnostic is running. Switches 00-03 and switch 07 
are static* and are used only on starting or restarting the 
diagnostic , 
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4.1.2 SWITCH REGISTER OPTIONS (at Start UP) 



SW 01 RESTART PROGRAM AT SELECTED TEST. It Is Stronoly 
suggested that at least one pass has been made before 
trying to select a test* the reason being is that the 
program has to clear areas and set up parameters , 
When this switch Is used the diagnostic will ask TEST 
NO,? Answer by typing the number of the test desired 
and carrige return to begin execution at the selected 
test , 

SW 02 LOCK ON SELECTED TEST , This switch when used with 
swoi will cause the program to constantly loop on the 
selected test. Hitting any Key on the console will 
let it advance to the next test and loop until a key 
is hit again, If SW02=0 when swoi is used, The 
program will begin at the selected test and continue 
normal operations, 

SW 03 PESELECT DMCll'S DESIRED ACTIVE, Please note that a 
message is typed out for setting the switch register 
equal to DMCll's active, tnis means if the system has 
four DMCllst bits 00,01,02,03 will be set in loc 
•DMACTV* from the switch register. Using this 
switch(SWOO) alters that location! therefore if four 
DMClls are in tht system *##D0 NOT#»# set switchs 
greater than SW 03 in the jp position, this would be 
a fatal error, do not select more active DMClls than 
there is information on in the status table. 



method t A J Load address 200 

B» Start with sw oosl 

Ci Program win type message 

D: Set a switch for sach DMC desired active, 

EXAMPLE! if you have 4 DMC's but only want to 
run the first and the last set swp bits and 
3 « 1, PRESS CONTINUE 

E: Number (IF VALID) win be in data lights 

(excluding 11/05) 

F« Set with any other switch settings desired, 

PRESS CONTINUE, 
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4,1.3 DYNAMIC SWITCHES 



ERROR SWITCHES 



1, sw 12 Delete print out/bell on error. 

2, sw 13 Delete error printout, 

3, sw 15 Halt on the error, 

4, sw 08 Goto beginning of the test(on error), 

5, Sw 10 Goto next testton error), 



SCOPE SWITCHES 



1. SW()6 Halt In ROMCLK routine before clocking 

micro-processor instruction. This allows the 
operator to scope a micro-processor instruction in 
the static state before it is clocked. Hit 
continue to resume running, 

2. SW()9 (if enabled by 'SC0P1') on an error? If an *** is 

printed in front of the test no, (ex, #TEST NO, 
10 ) SW09 is incorporated in that test and 
therefore SW09 is usually the best switch for the 
SCOPS loop (SW14sO, SWIO'O, SW09&1, SW08=0), If 
SW09 is not enabeiedi and there is a HARD error 
(constant)f SW08 is best. (SWi4=l,0, swioao, 
SW09>0, SW08»l) t for intermittent errors; SW14»1 
will loop on test reguardless of error or not 
error, (SWi4oi» swio«0, SW09»0, SW08*1,0) 

3. swii inhibit lnteratlons. 

4. swi 4 loop on current test. 



4,2 STARTING ADDRESS 



Starting address is at 000200 there are no other starting 
addresses for the DMCH diagnostics, (See Section 4,0) 

note t If address 000042 is non-zero the program assumes it 

is under ACT11 or XXDP control and will act 

accordingly after all available DMCll's are tested the 
program will return to 'XXDP' or 'ACT-it*. 



5. OPERATING PROCEDURE 



when program is initially started messages as described in 
section 4,0 will be printed, and program will begin running 
the diaanostic 
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5,2 PROGRAM AMD/DP OPERATOR ACTION 

The typical approach should be 

1, Halt on error (via sw 15=1) when ever an error occurs, 

2, Clear SW 15, 

3, Set sw Mi (loop on this test) 

4, Set sw i3i (inhibit error print out) 

The TEST NUMBER and PC will be ty^ed out and posslbily an 
error message (this depends on the test) to give the operator 
an idea as to the source of the problem, if it is necessary 
to Know more Information concerning the error report* LOOK IN 
the LISTING for that TEST NUMBER vMch was typed out and then 
NOTE THE PC of thE ERROR REPORT this way the EXACT FUNCTION of 
the test CAN BE DETERMINED, 

6, ERRORS 

As described previously there will always be a TEST NUMBER and 
PC typed out at the time of an error (providing sw i3»o and sw 
I2a0) ( in most cases additional information will be supplied 
in the the error message to give the operator an indication of 
the error, 

6,2 ERROR RECOVERY 

If for some reason the DMC1J should 'HANG THE BUS* (gain 
control of bus so that console manual functions are inhibited) 
an lnit or power down/up Is necessary for operator to regain 
control of cpu. If this should heopenf look in location 
'TSTNO' (address 1226)for the number of the test that was 
running at the time of the catastrophic error. In this way 
the operator win have an idea as to what the DMC11 was doing 
at the time of the error, 

7, RESTRICTIONS 

7,1 STARTING RESTRICTIONS 

See section 4, (PLEASE) 

Status table should be verified requardless of how program was 
started. Also it is important to use this listing along with 
the information printed on the TTY to compietly isolate 
problems , 
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7.2 OPERATING RESTRICTIONS 

The first time a DMCli diagnostic Is loaded into core and run 
the STATUS TABLE must be set up. This is done by manual input 
(SWOOsl) or by autosizing (SWOOaO and SW07sO), Thereafter 
however the status table need not be setup by subsequent 
restarts or even loading the next DMC diagnostic because the 
STATUS TABLE is overlayed. The current parameters in the 
status TABLE are used when SW07»i on start up, 

7.3 HARDWARE CONFIGURATION RESTRICTIONS 

Dmci I (M8200)- Jumper Wi must be in, and switch 7 of E76 must 
be In the OFF position, 

KMC(M8204)- Jumper Wi must be in, 

LINE UNTT(M8201)- Jumpers Wi, W2, and W4 must be IN, Jumpers 
W3, and W5 must be OUT, SW8 of E26 must be in the ON 
POSITION, 

LINE UNIT (M8202)- Jumper WI must be in, SW8 of E26 must be 
in the OFF position, 

8. MISCELLANEOUS 

8.1 EXECUTION TIME 

All DMCli device diagnostics will give an "END PASS' message 
(providing no errors and swi2«0) within 4 mins. This is 
assuming SWll*i (DELETE ITERATIONS) is set to give the fastest 
possiblis execution. The actual execution time depends greatly 
on the PDPU CPU configuration and the amount of memory in the 
system, 

8.2 PASS COMPLETE 

note: EVERY time the program is started; the tests will run 
as if swii (delete iterations) was up (=1). This is to 
* VERIFY NO HARD ERRORS' as soon as possible. Therefore the 
first Pass -EACH TIME PROGRAM IS STARTED- will be a ' QUICK 
PASS' until all DMCll's in system are tested, when the 
diagnostic has completed a pass the following is an example of 
the print out to be expected, 

END PASS DZDMH CSPl 175000 VECl 0300 PASSES: 000001 
ERRORS: 000000 

note : The pass count and error counts are cummulitive for 
each DMCli that is running, and are set to zero only 
wnen the diagnostic is started. Therefore after an 
overnight run for example, the total passes and errors 
for each DMCli since the diagnostic was started are 
reflected in PASSES: and ERROPS:, 
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8.4 KEY LOCATIONS 

RETURN (1214) Contains the address where program win return 
when iteration count is reached or If loop on 
test is asserted. 



NEXT (1216) 
TSTNO (1226) 
PUN (1316) 



D M CR00-DMCR17 
DMST00-DMST17 
(1500)-(1640) 



DMACTV (1306) 



DMCSR (1404) 



Contains the address of the next 
pef ormed. 



test to be 



Contains the number 
pef ormed. 



of the test now being 



The bit in 'RUN * always points to the DMCU 

currently being tested, examplej ( RUN) 

1302/0000000001000000 Means that DMC11 no,06 
is the DMC11 now running. 



These locations contain the information needed 
to test up to 16 (decimal) DMCtls sequentialy, 
they contain the CSP, VECTOR and STATUS 
concerning the configuration of each DMCU, 

Each bit set in this location indicates that 
the associated DMCU will be tested in turn, 
EXAMPLES (DMACTV) 1276/0000000000011111 weans 
that DMC11 no, 00,(1,02,03,04 will be tested, 
EXAMPLE! (DMACTV) 1276/0000000000010001 Means 
that DMC11 no, 00, C4 will be tested. 



Contains the CSP of the 
test , 



current DMC11 under 



8.4A 'STATUS TABLE' (1500-1640) 



The table Is filled by AUTO SIZING cr by the manual parameter 
Input (guestions) as described previously. Also if desired by 
user* the locations may be altered by hand (toggled in) to 
suit the specific configuration, 

The example status map shown below contains information for 
t»o DMCH'S, the table can contain up to 16 DMCll'S, 
Followlncr the map is a description c£ the bits for each map 
entry 



MAP OF DMCU STATUS 



PC CSR STAT1 STAT2 STAT3 

001500 160010 145310 177777 000000 
001510 160020 016320 000000 000000 
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Each mwp entry contains 4 words which contain the status 
inf orrowtion for 1 DMC11, The PC shows where In core memory 
the first of the 4 words Is, In the example above the first 
DMC'S status is in locations, 1500, 1502, 1504, and 1506, The 
seeond DMC status is located at 1510, 1512, 1514, and 1516, 
The information contained in each 4 word entry Is defined as 
f. ollow«ii 

CSR: Contains DMCU CSR address 

STATU BITS 00-08 IS DMC11 VECTOR ADDRESS 
BIT15«1 MICRO* PROCESSOR HAS CRAM 
BIT15sO MICRO-PROCESSOR HAS CROM 
BIT14«1 TURNAROUND CONNECTOR IS ON 
BIT14«0 NO TURNAROUND CONNECTOR 
BIT13«0 LINE UNIT IS AN M8201 
BTT13»1 LINE UNIT IS AN M8202 
BIT12-1 NO LINE UNIT 

BITS 09-11 IS DMC11 BR PRIORITY LEVEL 

STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMp LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM873 BOOT ADD) 

STAT3 I BITOal PERFORM FREE RUNNING TESTS ON KMC 

(mutt be set manually, SEE TEST 50) 
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8.5 METHOD OF AUTO SIZING 

8.5.1 FINDING THE CONTROL STATUS REGISTER. 

Tht auto-sizing routine finds a DMC11 as follows: It starts 
at address 160000 and tests all address in increments of 10 up 
to and including address 167760, If the address does not time 
out, the following is done, the first CROM address is written 
to a 125252 then it is read bacic. If it contains a -1 or 
125252 or 63220 a DMCli or KMCil has been found, if not, the 
address is updated by 10 and the search continues. A - 1 
Indicates a DMCil with no CROM, a 125252 indicates a KMCil 
with CRAM and a 63220 indicates a DMCll with the DDCMP CROM, 
Further tests are performed at this point to determine which 
line unit, if any, is installed, if a loop-back connector is 
installed and various switch settings on the line unit, THIS 
IS WHY THE STATUS TABLE MUST BE VERIFIED BY THE USER AND IF 
ANY Or THE INFORMATION DOES NOT AGREE WITH THE HARDWARE THE 
DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS MUST BE 
ANSWERED, All DMCll 's in the system will be found by the 
auto-sizer. If it does not find a DMCll the diagnostic must 
be restarted and the questions answered, 

8.5.2 FINDING THE VECTOR AND BR LEVEL 

The vector area (address 300*776) is filled with the 
instruction IOT and *,+2* (next address). The processor 
status is started at 7 and the DMC is programmed to interrupt. 
The PS is lowered by 1 until tht DMC interrupts, a delay is 
made and if no interupt occures at PS level 3 (because of a 
bad DMCll) the program assumes vector address 300 at BR level 
5 and the problem should be fixed in the diagnostic. Once the 
problem is fixed) the program should be re-setup again to get 
correct vector. If an interupt occured) the address to which 
the DMCll interupted to is picked up and reported as the 
vector, notei if the vector reported is not the vector set 
up by youj there is a problem and auto SIZING should not be 
done . 

8.6 SOFTWARE SWITCH REGISTER 

If the diagnostic is run on an 11/04 or other CPU without a 
switch register then a software switch register is used to 
allow user the same switch options as described previously. 
If the hardware switch register does not exist or if one does 
and it contains all ones (177**77) this software switch 
register is used. 

Control t 

To obtain control at any allowable time during execution of 
the diagnostic the operator types a CTRL G on the console 
terminal keyboard. As soon as the CTRL G is recognized, by 
the diagnostic, the following message will be displayed} 
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SWRsXXXXXX NEW? 

Where XXXXXX is the current contents of the software switch 
register In octal. The software control routine will then 
a»alt operator action. At which time the operator is required 
to type one or more of the legal characters* l) • l, 2) 
line feed(<LF>) , 3) carriage return(<CP>) # or 4) control-U 
(CTRL U), No check Is made for Jeqallty, If the input 
character is not a <LF>* <CR>» or CTRL U it is assumed to be 
an octal digit. 

To change the contents of the SSR the operator simply types 
the new desired value In octal - leading zeros need not be 
typed, And terminates the Input string with a <CP> or <LF> 
depending on the program action desired as described below. 
The Input value will be truncated to the last 6 digits typed. 
At least one digit must be typed on any given input string 
prior to the terminator before a change to the SSR will occur, 

when the input string is terminated with. a <CR> the diagnostic 
will continue execution from the point at which it was 
interrupted. If a <CR> is the only thing typed the program 
will continue without changing the SSR, The <LF> differs from 
the <CR> by restarting the program as if lit were restarted at 
address 200, 

If a CTRL U is typed at any point in. the input string prior to 
the terminator the input value will be disregarded and the 
prompt displayed (SWR ■ XXXXXX new?). 

To set the SSR for the starting switches* first load the 
diagnostic* then hit CTRL G* then start the diagnostic, 
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1626 #*#»#•#################*## TEST 1 ######♦#############**##### 

TEST OF BR RIGHT SHIFT 

VERIFY THAT A DEST OF BP RSH (011) OF A MICRO- INSTRUCTION 
SHIFTS THE RESULTING BP DATA RIGHT ONCE, 

1666 *»*#»*###»*«#«**#»*««#*##* TEST 2 *************************** 

IOP CRAM WRITE/READ TEST 

FLOAT A 1 THROUGH EACH CRAM LOCATION 

1700 **»*#*###*«##»#*##•#*#*«## TEST 3 *##****««#»«#«##*****#**«*« 

IOP CRAM WRITE/READ TEST 

FLOAT A THROUGH EACH CRAM LOCATION 

1737 «#«****#*#*»*#«#**##*****# TEST 4 ***»#*#***#»*«#«*#****##»## 

IOP CRAM DUAL ADDRESSING TEST 

WRITE EACH ADDRESS INTO ITSELF, READ EACH 

ADDRESS TO VERIFY CORRECT ADDRESSING 

17 8 3 •#«#*#««*#**«*«#**«***#»*« TEST 5 ****»###««#***«*«##«*#*#«** 

IOP CRAM READ TEST 

THIS TEST WRITES THE CRAM WITH THE CROM MICRO-CODE MAP 
THEN READS IT BACK AND COMPARES EACH ADDRESS WITH THE 
DUPLICATE OF THE CROM MICRO-CODE, 

1820 «*»*»**«*»*»»***««»»«#*«#« TEST 6 *###**#*##*«*#»««*»***#*#** 

IOP MAIN MEMORY TEST 

FLOAT A 1 THROUGH ALL MAIN MEMORY LOCATIONS 

1866 ************************** TEST 7 *************************** 

IOP MAIN MEMORY TEST 

FLOAT A THROUGH ALL MAIN MEMORY LOCATIONS 

1<3]4 «####»##**#***«#»«*##««#*# TEST 10 **##########*#*###«#*#####* 

IOP MAIN MEMORY DUAL ADDRESSING TEST 

LOAD EACH MEMORY LOCATION WITH ITS OWN ADDRESS 

READ BACK EACH LOCATION TO VERIFY CORRECT ADDRESSING 

1 <9 8 2 »«#*»**###«*##«*««»**««»#« TEST 11 **»##**#*#«##»#**#######»## 

IOP MAR TEST 

PERFORM DUAL ADDRESSING TEST 
USING MAR AUTO-INC FEATURE 

2022 *#»##»«###«##*##«*##«**«•« TEST 12 «*«•**«*««#**«»««»»*«*«#»»« 

IOP (CRAM) ODT BITS TEST 

LOAD MAR WITH A INC MAP UNTIL IT OVERFLOWS (2000 TIMES) 
VERIFY THAT IBUS* 10 BIT5 IS SET ONLY WHEN MAR BIT 8 IS A ONE 
AND THAT IBUS# 10 BIT6 15 SET ON MAP OVEPFLOW( 2000 ) 
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2083 «»#*»»»***#*##***«***«**** TEST 13 «**#*#«***#«####**»#**•#### 

CROM READ TEST 

THIS TEST READS EACH ROM LOCATION AND COMPARES 

2086 IT TO A SOFTWARE DUPLICATE OF THE CROM, THIS TEST 

ALSO TESTS THE JUMPCD MICRO" PROCESSOR INSTRUCTION, 

2132 »»««»#*««#*«««##»****#**»« TEST 14 «#**###**#«#**#*#**#**«##«* 

CROM TEST OF JUMp(I) NEVEP MICRO* PROCESSOR INSTRUCTION, 
PERFORM THE JUMP INSTRUCTION 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE), 

2189 #*«#**##«««##*«***#*#»**«* TEST 15 #•******#*******###««*##*## 

CROM TEST OF JUMp(I) ALWAYS MICRO* PROCESSOR INSTRUCTION, 
PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

2242 •*«**#»#**#«*»#«•#*•*«*«•«« TEST 16 *«*#*#**»#«**•***«««#*####* 

CROM TEST OF JUMp(I) ON C BIT SET MICRO- PROCESSOR INSTRUCTION, 

SET THE C BIT# PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

2298 •*##»***#*#**«##*««<{»*##•#« TEST 17 ««*#«##«*#*«##»«*#*««*«**#* 

CROM TEST OF JUMp(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION, 

SET THE Z BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

2354 **«###*«tt#**«**ft*#tf4#***«* TEST 20 »****#*•***#•**#*#«*#*##•«• 

CROM TEST OF JUMp(H ON BPO SET MICRO-PROCESSOR INSTRUCTION, 

SET THE BRO BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

2410 ##*#*#*«»»***«»**«##•#«««* TEST 21 **#*#**«»*»#«*****###«»**** 

CROM TEST OF JUMp(I) ON BR1 SET MICRO- PROCESSOR INSTRUCTION, 

SET THE BR1 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

2466 «*«*«##*#»##*»#**«*##»«#«* TEST 22 »»###«*#**#**»««#*««*•*##*» 

CROM TEST OF JUMp(I) ON BR4 SET MICRO-PROCESSOR INSTRUCTION, 

SET THE BP4 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

2522 «*#*»«•#*#•#«##***««#**##* TEST 23 ««»##*#****#*«#**##*##****# 

CROM TEST OF JUMP(I) ON BR7 SET MICRO- PROCESSOR INSTRUCTION, 

SET THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 

257Q **««###»#*»#*«**»»«#»«*### TEST 24 *************************** 

CROM TEST OF JUMP(I) ON C BIT SET MICRO- PROCESSOR INSTRUCTION, 

CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE), 
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2635 «***«#•«»*«#*»###**##*«*#» TEST 25 *#«#«#*##*«»**###«*#*##**** 

CROM TEST OF JUMp(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION, 

CLEAR THE Z BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW POM PC(IT SHOULD INCREMENT BY ONE), 

2692 «»##»»«###««»»«»***##««#«* TEST 26 ##*«**#*#*#***#»**#»#»**«*# 

CROM TEST OF JUMp(I) ON BPO SET MICRO- PROCESSOR INSTRUCTION, 

CLEAR THE BRO BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PCCIT SHOULD INCREMENT BY ONE), 

2749 *»»#«**«#«*•#««**#»#«#*«*» TEST 27 ##***#«*#*##««#*#****####*# 

CROM TEST OF JUMP(I) ON BRt SET MICRO- PROCESSOR INSTRUCTION, 

CLEAR THE BRl BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE), 

2806 #######################»## TEST 30 ################*########## 

CROM TEST OF JUMp(I) ON BP4 SET MICRO- PROCESSOR INSTRUCTION, 

CLEAR THE BR4 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PCCIT SHOULD INCREMENT BY ONE), 

2663 ««#«*•*##«****#*##*»««**#* TEST 31 **#»###*###*##*«#####*«*#»# 

CROM TEST OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION, 

CLEAR THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

THE CONTENTS OF THE NEW ROM PCCIT SHOULD INCREMENT BY ONE), 

2920 *#•#•»»*»*«»##*»*##**##««* TEST 32 #*******#«*««****##***#**#« 

CRAM TEST OF JUMP(I) NEVER MICRO- PROCESSOR INSTRUCTION, 
PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 
IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
BP WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 

2926 THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS CORRECT 
THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
THEN P0RT4 CONTAINS A 37 

298? ««#*»#*###########«***«#*» TEST 33 «*##*«#«*****#*#**«•**#***# 

CRAM TEST OF JUMPCI) ALWA Yf5 MICRO -PROCESSOR INSTRUCTION, 
PERFORM THE JUMP INSTRUCTION 

VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
THE BR DATA IS MOVED TO PORT4, IF THIS DATA IS CORRECT, 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
THEN PORT4 WILL CONTAIN A jl7 
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3041 *»*»*»**#*»#»*•#*##»*#«#*« TEST 34 *«********#»******«#******* 

CRAM TEST OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION, 

SET THE C BIT, PERFORM THF JUMP INSTRUCTION, 

VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 

IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 

BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 

THE BR DATA IS MOVED TO POPT4, IF THIS DATA IS CORRECT, 

THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 

THEN PORT4 WILL CONTAIN A 37 

3103 «»««**•«*»*»*«**»***##**«• TEST 35 *#«*«*«**««»«**#«#•**«***•• 

CRAM TEST OF JUMP(I) ON Z BIT SET MICRO- PROCESSOR INSTRUCTION, 

SET THE Z BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 

IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 

BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 

THE BR DATA IS MOVED TO PORT4, IF THIS DATA IS CORRECT, 

THE JUMP WAS SUCCESSFUL, IF THE JUMp WAS UNSUCCESSFUL 

THEN P0RT4 WILL CONTAIN A 37 

3165 •«»***••##«#«#«***«»*•***• TEST 36 «#•***•#*««»##*»**»##*#**«« 

CRAM TEST OF JUMp(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION, 
SET THE BRO BIT, PERFORM THE JUMP INSTRUCTION, 
VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
THE BR DATA IS MOVED TO PORT4 , IF THIS DATA IS CORRECT, 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
THEN PORT4 WILL CONTAIN A 37 

3227 »«#»**•*****»#•*»««*«*#*«« TEST 37 ***•##•«**#*•#«**•**#*****# 

CRAM TEST OF JUMPCI) ON BR1 SET MICRO- PROCESSOR INSTRUCTION, 
SET THE BR1 BIT, PERFORM THE JUMP INSTRUCTION, 
VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
THE BR DATA IS MOVFD TO PORT4, IF THIS DATA IS CORRECT, 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
THEN PORT4 WILL CONTAIN A 37 

3289 #»#*»»«**#»#**«**»«#««*#•# TEST 40 «**•*«****•#*«##«**#*#*«*»* 

CRAM TEST OF JUMP(I) ON BP4 SET MICRO- PROCESSOR INSTRUCTION, 
SET THE BR4 BIT, PERFORM THE JUMP INSTRUCTION, 
VERIFY THE JUMp DID OCC"R BY CLOCKING THE INSRUCTION 
IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
BP WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
THE BR DATA IS MOVED TO PORT4, IF THIS DATA IS CORRECT, 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
THEN PORT4 WILL CONTAIN A 37 
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3351 ###»#########*############ TFST 41 #*#########*###########»♦#» 

CRAM TEST OF JUMP(I) ON BP7 SET M ICPO-PROCESSOR INSTRUCTION, 
SET THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 
VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
THE BP DATA IS MOVED TO POPT4, IF THIS DATA IS CORRECT, 
THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
THEN PORT4 WILL CONTAIN A 37 

3413 »*****»#«###«##»*#»#«##*#* TEST 42 «**«##««####*##*#**#«#««*** 

CRAM TEST OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION, 

CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 

VEPIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 

IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 

BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 

THE BR DATA IS MOVED TO PORT4, IF THIS DATA IS CORRECT 

THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 

THEN PORT4 CONTAINS A 37 

3475 •##*••»#***«*«*###«*#*«**<» TEST 43 *•#*«««*#*«###«««#»*«*««*** 

CRAM TEST OF JUMPfl) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION, 

CLEAR THE Z BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 

IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 

BR WITH THE LOWEST 8 BITS OF THE CRAM PC „ AT THIS POINT 

THE BR DATA IS MOVED TO PORT4. IF THIS DATA IS CORRECT 

THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 

THEN POPT4 CONTAINS A 37 

3537 ««**«»*«*#«*##«*##*««»•##« TEST 44 «««**«»•#***#*«*«««#*«#»*** 

CRAM TEST OF JUMp(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION, 
CLEAR THE BRO BIT, PERFORM THE JUMP INSTRUCTION, 
VERIFY THE JUMp DID NOT OCCUR BY CLOCKING THE INSTRUCTION 
IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 

3542 BP WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
THE BP DATA IS MOVED TO PORT4, IF THIS DATA IS CORRECT 
THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
THEN PORT4 CONTAINS A 37 

3599 *#»*##•##***«#**##««#*###* TEST 45 «#•***«#***#«*#*«**###***#« 

CRAM TEST OF JUMP(I) ON BR1 SET MICRO-PROCESSOR INSTRUCTION, 
CLEAR THE BR1 BIT, PERFORM THE JUMP INSTRUCTION, 
VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 
IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
. THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS CORRECT 
THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
THEN PORT4 CONTAINS A 37 
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3661 #»*»****»*»»»»*#*»*#*#*#** TEST 46 ***********»###«***«#»*#«** 

CRAM TEST OF JUMP(I) ON BP4 SET MICRO-PROCESSOR INSTRUCTION, 

CLEAR THE BR4 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 

IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 

BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 

THE BR DATA IS MOVED TO P0PT4, IF THIS DATA IS CORRECT 

THE CRAM PC IS CORPECT, IF THE CRAM PC IS NOT RIGHT, 

THEN PORT4 CONTAINS A 37 

3723 «*•*»*««*»•»*«*#•««****#«* TEST 47 ***»»*#»*#*#•«**#*#*»#*«»** 

CRAM TEST OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION, 

CLEAR THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 

VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 

IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 

BR WITH THE LOWEST 8 BITS OF THE CRAM PC , AT THIS POINT 

THE BR DATA IS MOVED TO PORT4, IF THIS DATA IS CORRECT 

THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 

THEN PORT4 CONTAINS A 37 

3785 •***••»**#*#«•»«»»«*«***«# TEST 50 *••»«*•*»«*##**««*«*««#**«# 

FREE RUNNING FLAG MODE DATA TEST 

TRANSMIT A MESSAGE AND VERIFY THE RECEIVED DATA 

IF NO TURNAROUND CONNECTOR IS ON LINE UNIT LOOP IS SET, 

ALL FOLLOWING TESTS ARE FREE RUNNING AND ARE PERFORMED 

ONLY ON DMC'S WITH LINE UNITS, IF YOU WISH TO PERFORM 

THESE FREE RUNNING TESTS ON A KMC (NORMALLY THE FREE RUNNING TESTS 

WILL FAIL ON A KMC, THE TIMER IS TOO FAST) THEN YOU MUST 

MANUALLY SET BITO OF STAT3 IN THE STATUS MAP, 

3960 •#*#«*»#«•«•*»*»*««-*#*#«*« TEST 51 #«##«•*»*###*«**»«*«*«#*»*« 

OVERUN TEST 

IN FREE RUNNING MODE SEND MESSAGE WITH NO RECEIVE 
BUFFER AVAILABLE, VERIFY THAT AN OVERRUN ERROR OCCURS 

4016 «•#««#«*«#*««««««*###*«### TEST 52 #*#*##*•#»«*»#*#*##*#*#*««# 

LOST DATA TEST 

IN FREE RUNNING MODE SEND A MESSAGE LONGER THAN THE RECEIVE 
BUFFER, VERIFY THAT A LOST DATA ERROR OCCURS, 

4065 #*###*»#»#########*■##*#### TEST 53 *««#*«**«***********«*#**«« 

TRANSMIT NON-EXISTFNT MEMORY TEST 

IN FREE RUNNING MODE, LOAD A TRANSMIT BA THAT WILL TIME OUT 
VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS 

4111 ««#**»#**#*#»*##**{>***«#*# TEST 54 #**##*#*##*****#*«#*#****#* 

RECEIVE NON-EXISTENT MEMORY TEST 

IN FREE RUNNING MODE, LOAD A RECEIVE BA THAT WILL TIME OUT 
VERIFY THAT A NON-KXISTENT MEMORY ERROR OCCURS 
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4160 «*##»#*###»#*#«»***«#»#»*# TEST 55 *«#««#*«•*##«*«*##*#»#*##««« 

PROCESSOR ERROR TEST 

IN FREE RUNNING MODE, DO A BASE TRANSFER REQUEST AFTER A 
BASE HAS BEEN SET UP, VERIFY THAT A PROCESSOR ERROR OCCURS, 

4204 *##*»#**##*****##*####*#*# TEST 56 «#«##*#«*«#*««#*#*«#*#*#### 

PROCESSOR ERROR TEST 

IN FREE RUNNING MODE DO A RQI WITH AN ILLEGAL 10 CODE 
VERIFY THAT A PROCESSOR ERROR OCCURS 

4248 «**#***«#***#««*««»*#*««#* TEST 57 *»«»#««#*»»«*«»*##»*#*«*#*« 

HALF DUPLEX TEST 

IN FREE RUNNING MODE, SET HALF DUPLEX AND I U LOOP 
SEND A MESSAGE AND VERIFY THAT THERE ARE NO DONES 

4288 #«•#«*«#«>**«*»*«#«#«**»*## TEST 60 «#«#»###«***«»#«**«*##«««#* 

FREE RUNNING DATA TEST (INTERRUPT DRIVEN EXERCISER) 
THIS TEST REPEATEDLY QUEUES UP 7 RECEIVE BUFFERS AND 
7 TRANSMIT BUFFERS AND CHECKS DATA WHEN ALL 7 BUFFERS 
ARE RECEIVED, TRANSMIT COUNTS RANGE FROM 1 TO 104, ALSO 
ODD AND EVEN TRANSMIT AND RECEIVE BA'S ARE USED, DATA 

IS A BINARY COUNT PATTERN, THE RESUME FUNCTION IS CHECKED IN THIS TEST 
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(•MAINDEC-tl-DZDMH-A OUCH LOCAL CROM, JUMP, AND FREE RUNNING TESTS 
(•COPYRIGHT 1976, DIGITAL EQUIPMENT CORP,, MAYNARD, MASS. 01754 



19 
20 
21 
22 
23 



I STARTING PROCEDURE 

j LOAD PROGRAM 

:LOAD ADDRESS 000200 

sSWBho AUTCSIZE DNClt 

ISW07«1 USE CURRENT DMC11 PARAMETERS 

;3»00«1 INPUT SEW DMC11 PARAMETERS 

) PRESS START 

I PROGRAM WILL TYPE "MAINDEC-11-DZDMH-A DMC11 LOCAL CROH, JUMP, AMD FREE RUNNIN 
I PROGRAM HILL TYPE STATUS MAP 

» PROGRAM HILL TYPE "R« TO INDICATE THAT TESTING HAS STARTED 
J AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
I AND THEN RESUME TESTING 

I SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
O00O01 



: SWITCH REGISTER OPTIONS 



SW15«100000 

SK14=40000 

SW13s20000 

SW12»10000 

SWHO4000 

SW10»2000 

SW09slOOO 

swoe*40c 

S*07»200 

S»06sl00 

SW0S*40 

SN04«20 

SW03S10 

3-02a4 

5«01=2 

SHOOsl 



(»1 

(»1 
J»l 
>»1 
(«1 
» = i 
;»1 
J=l 
(si 
(»1 



, HALT ON ERROR 

,LOOP ON CURRENT TEST 

, INHIBIT ERROR TYPEOUT 

.DELETE TYPEOUT/BELL ON ERROR. 

, INHIBIT ITERATIONS 

,ESCAPE TO NEXT TEST ON ERROR 

,LOOP WITH CURRENT DATA 

,LOOP ON ERROR 

> USE CURRENT DMC11 PARAMETERS, 



=0,AUTOSIZE DMC11 



HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION 



;RESELECT DMCll'S TO BE TESTED (ACTIVE) 

(LOCK GN TEST SELECT 

(RESTART PROGRAM AT SELECTED TEST 

I INPUT DMC11 PARAMETERS 
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DZFiMH.pll 09-DEC-76 14«59 GENERAL DEFINATIONS AND EQUIVALENCIES 

46 
47 

48 (REGISTER DEFINITIONS 

49 | .................... 

50 

5! OOOOQO R0=%0 i GENERAL REGISTER 

52 000001 Rls%l (GENERAL REGISTER 

5 3 000002 R2«%2 (GENERAL REGISTER 

54 000003 R3e%3 (GENERAL REGISTER 

55 000004 R4»%4 (GENERAL REGISTER 

56 000005 R5s%5 (GENERAL REGISTER 

57 000006 SPa%6 (PROCESSOR STACK POINTER 
5 8 000007 PC»%7 (PROGRAM COUNTER 

59 

*n (LOCATION EQUIVALENCIES 
61 [ ............. 

62 

63 177776 PS»177776 (PROCESSOR STATUS WORD 

64 001200 STACK«1200 (START OF PROCESSOR STACK 

65 

66 (INSTRUCTION DEFINITIONS 

67 }—«.. — ..,„»«...»..» 

68 

69 005746 PUSH1SP»5746 (DECREMENT PROCESSOR STACK 1 WORD 

70 005726 P0P1SP»S726 I INCREMENT PROCESSOR STACK 1 WORD 

71 010046 PUSHRO»10046 (SAVE RO ON STACK 

72 012SO0 POPR0H2600 (RESTORE RO FROM STACK 

73 024646 PUSH2SP»24646 (DECREMENT STACK TWICE 

74 022626 P0P2SP»22626 ( INCREMENT STACK TWICE 

75 .EQUIV EMT.HLT (BASIC DEFINITION OF ERROR CALL 
7* 

77 (BIT DEFINITIONS 

78 !--- 

79 

on 100000 BIT15*100000 

81 040000 BIT14»40000 

82 020000 BIT13=20000 

83 010000 BIT12sl0000 

84 004000 BIT11=4000 

85 002000 BIT10»2000 

86 001000 BIT9S1000 

87 000400 BIT8=400 
BP 000200 BTT7s200 
89 000100 BJT6=100 
"0 000040 BIT5=40 

91 000020 BIT4=20 

92 000010 HIT3=10 

93 000004 BIT2=4 

94 000002 BIT1=2 

95 000001 BTTOsl 
96 

<57 
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98 






99 






1 00 






1 01 






102 






103 






104 






1 05 






1 06 






107 






1 08 




000000 


109 






110 






111 






112 




000024 


113 


000024 


005240 


114 


000026 


000340 


115 


000030 


004656 


116 


000032 


000340 


117 


000034 


004624 


1 1 8 


000036 


000340 


1 1 9 




000040 


1 20 


000040 


000000 


121 


000042 


000000 


1 22 


000044 


000000 


123 


000046 


003432 


124 




000052 


1 25 


000052 


000000 


126 






127 




000174 


128 


000174 


000000 


129 


000176 


000000 


130 






1 31 




000200 


132 


000200 


000137 


1 33 






134 






1 35 




001000 


1 36 


001 000 


005377 


(2) 


001025 


104 








1 37 




001200 


138 






139 






1 40 






141 






1 42 


001200 


177570 


143 


001202 


177570 
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"RAPCATCHER for UNEXPECTED interupts 



II ###»»«•»»•*«••♦##*«»**#♦•»*»*•»•••#*»•**»*»••»»»*••»**»»*»**»•**»**• 



040515 
041515 



047111 
030461 



5 TRAPC ATCAER FOP ILLEGAL INTERRUPTS 
I THE STANDARD "TRAP CATCHER" IS PLACED 
(BETWEEN ADDRESS TO ADDRESS 776. 
I IT LOOKS LIKE "PC+2 HALT", 



1 1 #*»*»*•»«*»»»•»••»*»*•»•»♦♦»*»•••»•»•*»»•*•••••***•*********»******* 

,*0 

J STANDARD INTERRUPT VECTORS 
j .......................... 

,"24 

.PFAIL 

340 
.HLT 
340 

.TRPSRV 
340 



,■40 



,«174 

DISPREGl 
SHREGl 



.START 



j POWER FAIL HANDLER 
j SERVICE AT LEVEL 7 
(ERROR HANDLER 
) SERVICE AT LEVEL 7 
I GENERAL HANDLER DISPATCH SERVICE 
j SERVICE AT LEVEL 7 

fSAVE FOR ACT-11 OR XXDP 

j RETURN ADDRESS IF UNDER ACT-11 OR XXDP 

(SAVE FOR ACT-11 OR XXDP 

(FOR USE WITH ACT-11 OR XXDP 

(ACT-11 PROGRAM CHARACTERISTICS 



( SOFTWARE DISPLAY REGISTER 
I SOFTWARE SWITCH REGISTER 



I GO TO START OF PROGRAM 



.slOOO 

MTITLE: .ASCII <377><1 2> /MAINDEC-1 l-DZDMH-A/<377> 

.ASCIZ /DMC11 LOCAL CROM, JUMP, AND FREE RUNNING TESTS/<377> 

.■1200 

I INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 



DISPLAY! 177570 
SWRi 177570 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
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i 44 
1 45 
1 46 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
1 77 
178 
179 
180 
181 
182 
183 
184 
185 
1 86 
187 
188 
1 89 
1 90 
191 
192 
193 
194 
1<55 



I INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 
....................... .... . .... 



001 204 
001206 
001210 
001212 



001214 
001216 
001220 
001222 
001224 
001226 
001230 
001232 
001234 



001236 
001240 
001242 
001244 
001246 
001250 
001252 
001254 
001256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 
001 300 
001302 
001304 
001306 
001310 
Oil 312 
001314 
001316 

001 320 
001 J22 



177560 
177562 
177564 
177566 



000000 
000000 
000000 
000003 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000000 
000001 
000001 
0O0001 

oooooi 
oooooo 

001 472 
ont 57ij 



TKCSRJ 177560 

TKDBRl 177562 

TPCSRi 177564 

TPDBRl 177566 

I PROGRAM CONTROL PARAMETERS 
....... ............. 

NEXT I " ' 

LOCKt 

IC0UNT1 3 

LPCNTl 

TSTNOj 

PASCNTj 

ERPCNTl 

LSTERRt 

I PROGRAM VARIABLES 



........ 

STRTSWj 
STATl 
CLKXj 
MASKXt 
TEMPI I 
TEMP2 1 
TEMP3 I 
TF.MP4 1 
TEMP5 I 
SAVROl 
SAVRU 
SAVR2 I 
SAVR3) 
SAVR4 I 
SAVR5 : 
SAVSPl 
SAVPCj 
ZERO I 
ONEl 1 
MEMLIMl 
DMACTVt ,BLKW 1 
DMNUM! ,RL*W 1 
SAVACT! .BTjtw 1 
SAVNUM! .BLKW 1 
PUN: 



CREAM* 
"TLKi 



pw.MAP-6 



( TELETYPE KEYBOARD CONTROL REGISTER 
r TELETYPE KEYBOARD DATA BUFFER 
(TELEPRINTER CONTROL REGISTER 
(TELEPRINTER DATA BUFFER 



; SCCP? *C">P!TS* rnn (.OOP ON TEST 

(ADDRESS OF NEXT TEST TO BE EXECUTED 

( ADDRESS FOR LOCK ON CURRENT DATA 

(NUMBER OF ITERATIONS THAT CURRENT TEST «tM. 

(NUMBER OF ITEREATIONS COMPLETED 

(NUMBER OF TEST IN PROGRESS 

I NUMBER OF PASSES COMPLETED 

(TOTAL NUMBER OF ERRORS 

(PC OF LAST ERROR CALL 



(SWITCHES AT START OF PROGRAM 
(DM STATUS WORD STORAGE 



(TEMPORARY STORAGE 
(TEMPORARY STORAGE 
I TEMPORARY STORAGE 
(TEMPORARY STORAGE 
(TEMPORARY STORAGE 
(RO STORAGE 
(Rl STORAGE 
(R2 STORAGE 
(R3 STORAGE 
(R4 STORAGE 
;R5 STORAGE 

I STACK POINTER STORAGE 
(PROGRAM COUNTER STORAGE 



) HIGHEST LOCATION FOR NPR'S 
(DMCll'S SELECTED ACTIVE, 
; OCTAL NUMBER OF DMCll'S, 
(ORIGINAL ACTV DEVICES 
(WORKABLE NUMBER 
( POINTER TO RUNNING DEVICE, 

(TABLE POINTER. 
! TABLE POINTER 



DZDMH MACYU 27C1006) 14-DEC-76 16:32 PAGE 6 

DZDMH.PH 09-DEC-76 14|59 PROGRAM PARAMETERS, VARIABLES,- AND TRAP CALLS, 
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197 
19? 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
21 i 
212 
213 
214 
215 
216 
217 
718 
219 

220 

221 
222 
223 
224 
225 
226 
227 
228 
229 
2J0 
231 
232 
7 33 
734 
235 
2-»6 
237 
238 
719 
740 
241 
242 
243 
744 
245 
746 
247 



001324 
001325 
001326 
501327 



000 
000 
000 

eoo 



104400 
003506 
104401 
013644 
104402 
003674 
104403 
003756 
104404 
004062 
104405 
004102 
104406 
004302 
1 04407 
004342 
104410 
004374 
104411 
004400 
104412 
005370 
104413 
005340 
U>4414 
005406 
104415 
005454 
104416 
O05520 



(PROGRAM CONTROL FLAGS 

: 

ZKIFLGs .BYTE 

ERRFLGl »BYTE 

LOKFLGl .BYTE 

QV.FLGl .BYTE 

■ EVEN 



I PROGRAM INITIALIZATION FLAG 
j ERROR OCCURED FLAG 
, LOCK ON CURRENT TEST FLAG 
I QUICK VERIFY FLAG, 

i Oh FIRST PASS OF EACH DHC11 ITERATIONS MILL BE 



JOEFINITIONS FOR TRAP SUBROUTINE CALLS 

j POINTERS TO SUBROUTINES CAN BE FOUND 

SIN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 

,«»»»»»»**»**»*«♦#*»#»«**»»♦•**»*•*»***«**•***»********«***«**»*♦**•** 



.TRPTABt 
SCOPEaTRAP+0 

.SCOPE 
SCOPlsTRAP+1 

.SC0P1 
TYPErTRAP+2 

.TYPE 
INSTRaTRAP+3 

.INSTR 
INSTERsTRAP+4 

, INSTER 
PARAMaTRAP+5 

.PAPAM 
SAV05»TRAP+6 

.SAVOs 
RES05«TRAP+7 

.RES05 
CONVRT«TPAP+10 

.CONVRT 
CNVRTaTRAP+11 

.CNVRT 
MSTCLR«TRAP+12 

.MSTCLR 
DELAY«TRAP*13 

.DELAY 
ROMCLKsTRAP+l 4 

".ROMCLK 
DATACLKeTPAP+15 

.DATACLK 
TIMERaTRAP+16 

.TIMER 



jCALL TO SCOPE LOOP AND ITERATION HANDLER 

(CALL TO LOOP ON CURRENT DATA HANDLER 

jCALL TO TELETYPE OUTPUT ROUTINE 

(CALL TO ASCII STRING INPUT ROUTINE 

(CALL TO INPUT ERROR HANDLER 

jCALL TO NUMERICAL DATA INPUT ROUTINE 

j CALL. TO REGISTER SAVE ROUTINE 

jCALL TO REGISTER RESTORE ROUTINE 

(CALL TO DATA OUTPUT ROUTINE 

(CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF, 

(CALL TO ISUE A MASTER CLEAR 

(CALL TO DELAY 

i CALL TO CLOCK ROM ONCE 

(CALL TO CLK DATA 

) CALL TO DELAY A CLOCK TICK 



I t «*«*#•»»»**»*•*•****»*****»»*»•*»»♦»#»**#******»*#*#»»#***#**•#»»»*» 
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PROGRAM PARAMETERS, VA 


Zip 










2-19 






(DMCU 


CONTROL 


250 










351 










757 


001366 


000000 


STATU 











STAT2 1 





754 


001372 


000000 


STAT3: 





7S5 










756 






(DMCU 


VECTOR 


757 










759 










759 


001 374 


oooooo 


DMRVEC ( 





260 


001 376 


000000 


DMRLVL: 





7fct 


001400 


oooooo 


DMTVEC ( 





7*2 


001 402 


oooooo 


DMTLVL( 





763 


001 404 


oooooo 


DMCSR: 





264 


001406 


oooooo 


DMCSRHt 





765 


001410 


oooooo 


DMCTL( 





766 


001412 


oooooo 


DMP04: 





267 


001414 


OOOOOO 


0MP06I 





760 










769 






! TEMP STORAGE 


270 










771 










772 


001 416 


OOOOOO 


TEMPI 





773 




001460 


.«.+40 




774 










775 






(DMCU 


STATUS 


776 










777 










778 




001500 


.=1500 




?T9 


0O1500 




DM, MAPI 




280 


001500 


000001 


DMCROOl 


.BLKW 


291 


001502 


000001 


DMS100I 


,RLKK 


732 


001504 


000001 


DM82001 


, BLKW 


783 


001506 


000001 


DMS3001 


.BLKW 


785 


001510 


000001 


DMCFOl 1 


.BLKW 


786 


001512 


000001 


DMSlOll 


.BLKW 


287 


001514 


000001 


DMS201! 


. BLKW 


788 


001516 


000001 


DMS301: 


, BLKW 


789 










290 


0O1520 


0000O1 


DMCR02I 


.3LKW 


791 


001522 


000001 


DMS102I 


.BLKW 


792 


001524 


000001 


DMS202J 


.BLKW 


793 


001 526 


oooooi 


DMS302I 


.BLKW 


794 










295 


001 530 


000001 


DMCR03S 


.BLKW 


796 


001532 


oooooi 


D"IS103: 


.BLKW 


797 


001534 


oooOOl 


D*S203t 


.BLKW 


798 


0015 36 


oooooi 


DMS3031 


.BLKW 


799 










ion 


001540 


0OQ001 


0"CP04! 


.BLKW 


301 


001542 


oooooi 


D"S104: 


.BLKfc 




OA) 544 


oooooi 


DMS204: 


.BLKW 


313 


0.M5 46 


OOOOOI 


DMS304I 


.BLKW 



PAGE I 0027 



AND TRAP CALLS. 



(POINTER TO DMCU RECEIVER INTERRUPT VECTOR 

( POINTER TO DMC11 RECEIVER INTERRUPT SERVICE PS 

(POINTER TO DMC11 TRANSMITTER INTERRUPT VECTOR 

(POINTER TO DMCU TRANSMITTER INTERRUPT SERVICE PS 

I POINTER TO DMC11 CONTROL STATUS REGISTER 

) POINTER TO DMCU CONTROL STATUS REGISTER HIGH BYTE, 

(POINTER TO DMC11 CONTOL OUT REGISTER 

I POINTER TO DMCU PORT REGISTER( SEL 4) 

(POINTER TO DMCU PORT REGISTERCSEL 6) 



(CONTROL STATUS REGISTER FOP DMCU NUMBER 00 
(VECTOR FOR DMCU NUMBER 00 
(DDCMP LINE! FOR DMCU NUMBER 00 
( 3RD STATUS WORD 

iCCsTROL 3"="'JS REGISTEH FDR DMCU NUMBER 01 

(VECTOR FOR DMCU NUMBER 01 

( DDCMP LINE* FOR DMCU NUMBER 01 

I 3RD STATUS WORD 

I CONTROL STATUS REGISTER FOR DMCU NUMBER 02 

I VECTOR FOR DMCU NUMBER 02 

I DDCMP LINE! FOR DMCU NUMBER 02 

(3RD STATUS WORD 

(CONTROL STATUS REGISTER FOR DMCU NUMBER 03 
(VECTOR FOR DMCU NUMBER 03 
(DDCMP LINE* FOR DMCU NUMBER 03 
t 3RD STATUS WORD 



I CONTROL STATUS REGISTEP FOR DMCU NUMBER 04 

j VECTOR FOP DMCU NUMBER 04 

i DDCMP LINE* FOR DMCU NUMBER 04 

; 3RD STATUS WORD 
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304 










305 


00)550 


000001 


DMCR05 1 


,BLKW 


306 


001552 


000001 


DMS10SI 


,BLKH 


307 


001554 


000001 


DMS205I 


.BLKW 


308 


001556 


000001 


DHS305I 


.BLKW 


300 










310 


001560 


000001 


DMCR06I 


.BLKW 


311 


001562 


000001 


DM31061 


.BLKW 


312 


001564 


oooooi 


DHS206I 


.BLKW 


313 


001566 


000001 


DMS306I 


.BLKW 


314 










315 


001570 


000001 


DMCR07» 


.BLKW 


316 


001572 


000001 


DMS1071 


.BLKW 


317 


001574 


000001 


DMS207 1 


.BLKW 


318 


001576 


000001 


DMS307I 


.BLKW 


319 










320 


001600 


000001 


DMCR10I 


.BLKW 


321 


001602 


000001 


DHSHOJ 


.BLKW 


322 


001604 


000001 


DMS210I 


.BLKW 


323 


001606 


000001 


DMS310I 


.BLKW 


324 










325 


001610 


oooooi 


DHCRlll 


.BLKW 


126 


001612 


000001 


DMS111 t 


.BLKW 


327 


001614 


oooooi 


DMS2111 


.BLKW 


328 


001616 


oooooi 


DMS311! 


.BLKW 


329 










330 


001620 


000001 


DMCR12I 


.BLKW 


331 


001622 


oooooi 


DMS112I 


.BLKW 


332 


001624 


010001 


DMS212I 


.BLKW 


333 


001626 


OOOOOI 


D*IS312l 


.BLKW 


334 










335 


001630 


OOOOOI 


DMCR131 


.BLKW 


336 


001632 


OOOOOI 


DHS113I 


.BLKW 


337 


001634 


OOOOOI 


DMS213» 


.BLKW 


338 


001636 


OOOOOI 


DM33131 


.BLKW 


339 










340 


001640 


OOOOOI 


DMCR14I 


.BLKW 


341 


001 642 


OOOOOI 


DMS114J 


.BLKW 


342 


001644 


OOOOOI 


DMS214J 


.BLKW 


343 


001646 


OOOOOI 


DMS314I 


.BLKW 


344 










345 


001650 


OOOOOI 


DMCP15J 


.BLKW 


346 


001652 


OOOOOI 


DMS115I 


.BLKW 


347 


001654 


OOOOOI 


DMS215I 


.BLKW 


348 


001656 


OOOOOI 


DM53151 


.BLKW 


349 










350 


001660 


OOOOOI 


DMCR16I 


.BLKW 


351 


001662 


OOOOOI 


DMS1161 


.BLKW 


3S2 


001664 


OOOOOI 


DMS216I 


.BLKW 


351 


001666 


OOOOOI 


DMS316t 


.BLKW 


354 










355 


001670 


OOOOOI 


DMCR17I 


.BLKW 


356 


001672 


OOOOOI 


DMS117! 


.BLKW 


357 


001674 


OOOOOI 


DMS217I 


.BLKW 


358 


001676 


OOOOOI 


DM5317: 


.BLKW 


359 











CONTROL STATUS REGISTER FOR DMCil NUMBER 05 

VECTOR FOR DMCil NUMBER 05 
■ DDCMP LINEt FOR DHC11 NUMBER 05 
1 3RD STATUS WORD 

CONTROL STATUS REGISTER FOR DNC11 NUMBER 06 
VECTOR FOR DMCil NUMBER 06 
DDCMP LINE! FOR DMC11 NUMBER 06 
3RD STATUS WORD 

(CONTROL STATUS REGISTER FOR DMC11 NUMBER 07 
VECTOR FOR DMC11 NUMBER 07 
DDCMP LINE! FOR DMC11 NUMBER 07 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR DMCil NUMBER 10 
VECTOR FOR DMCil NUMBER 10 
DDCMP LINE* FOR DMCil NUMBER 10 
1 3RD STATUS WORD 

CONTROL STATUS REGISTER FOR DMCil NUMBER 11 
VECTOR FOR DMCil NUMBER 11 
DDCMP LINEt FOR DMCil NUMBER 11 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR DMCil NUMBER 12 
VECTOR FOP DMCil NUMBER 12 
DDCMP LINE* FOR DMCil NUMBER 12 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR DMCil NUMBER 13 
VECTOR FOR DMCil NUMBER 13 
DDCMP LINE* FOR DMCil NUMBER 13 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOP DMCil NUMBER 14 
VECTOR FOR DMCil NUMBER 14 
DDCMP LINE* FOR DMCil NUMBER 14 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR DMCil NUMBER 15 
VECTOR FOR DMCil NUMBER 15 
DDCMP LINE* FOR DMCil NUMBER 15 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR DHC11 NUMBER 16 
VECTOR FOP DMCil NUMBER 16 
DDCMP LINE* FOR DMCil NUMBER 16 
3RD STATUS WORD 

CONTROL STATUS REGISTER FOR DMCil NUMBER 17 
VECTOR FOR DMCil NUMBER 17 
DDCMP LINE* FOR DMCil NUMBER 17 
3RD STATUS WORD 
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360 O-1170O onOOOfi 



DM, END! 000000 



PAGEI 0029 
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361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
379 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
39? 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
40? 

405 
406 
407 
408 
■409 
4)0 
4) 1 
412 
H i 



jDMCll PASS COUNT AND ERROR COUNT TABLE 



0O1702 
001702 
001704 

001706 
001710 

001712 
001714 

001716 
001720 

001722 
001724 

001726 
001730 

001732 
001734 

001736 
001740 

001742 
001744 

001746 
001 750 

001752 
001754 

001756 
001760 

001762 
001764 

001766 
001770 

001772 
00J774 

001 776 

002000 



000000 
000000 



000000 

000006 



000000 
000000 



000000 
000000 



000000 
000000 



000000 
000000 



000000 
000000 



000000 
000000 



000000 
000000 



000000 
000000 



000000 
000000 



000000 
OOOOOO 



000000 
OOOOOO 



OOOOOO 
OOOOOO 



OOOOOO 
OOOOOO 



OOOOOO 
OOOOOO 



CNT.MAP: 

PACTOOt 
ERCTOOl 

PACTOl! 
ERCT01I 

PACT02! 
ERCT02: 



PACT03 
SRCT03 



PACT04 
ERCT04 



PACT05 
ERCT05 



PACT06 
ERCT06 



PACT07 
ERCT07 



PACT10 
ERCT10 



PACT1J 
ERCT1 1 



PACT12 
ERCT12 



PACT13 
ERCT13 



PACT14 
ERCT14 



PACT15 
ERCT15 



PACT16 
ERCT16 



PACT17 
ERCT17 



I PASS COUNT FOR DSCii NUMBER 00 
ERROR COUNT FOR DHC11 NUMBER 00 

PASS COUNT FOR DMCU NUMBER 01 
ERROR COUNT FOR DMCU NUMBER 01 

PASS COUNT FOR DMC11 NUMBER 02 
ERROR COUNT FOR DMCll NUMBER 02 

PASS COUNT FOR DMCU NUMBER 03 
ERROR COUNT FOP DMCll NUMBER 03 

PASS COUNT FOR DMCU NUMBER 04 
ERROR COUNT FOR DMCll NUMBER 04 

PASS COUNT FOR DMCll NUMBER 05 
ERROR COUNT FOR DMC1 1 NUMBER 05 

PASS COUNT FOR DMCU NUMBER 06 
ERROR COUNT FOR DMCU NUMBER 06 

PASS COUNT FOR DMCll NUMBER 07 
ERROR COUNT FOR DMCU NUMBER 07 

PASS COUNT FOP DMCll NUMBER 10 
ERROR COUNT FOR DMCU NUMBER 10 

PASS COUNT FOR DMCU NUMBER U 
ERROR COUNT FOP DMCU NUMBER 11 

PASS COUNT FOR DMCU NUMBER 12 
ERROR COUNT FOR DMCll NUMBER 12 

PASS COUNT FOR DMCU NUMBER 13 
ERROR COUNT FOR DMCU NUMBER 13 

PASS COUNT FOR DMCU NUMBER 14 
ERROR COUNT FOR DMCU NUMBER 14 

PASS COUNT FOR DMCU NUMBER 15 
ERROR COUNT FOR DMCll NUMBER 15 

PASS COUNT FOR DMCU NUMBER 16 
ERROR COUNT FOR DMCU NUMBER 16 

PA5S COUNT FOR DMCU NUMBER 17 
ERROR COUNT FOR DMCU NUMBER 17 
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41 4 
415 
416 
417 
418 
419 



FORMAT OF STATUS TABLE 



15 14 13 12 U 10 09 08 07 06 05 04 03 02 01" 00 



I I I 
I C 
I I I 



I I I I I 

T R L 
I I I I I 



I I I I I I I I I 
REGISTERI 
I I I I I I I I I 



I I I 
I • I » I 
III 



I I I I I I 
I«I*I»I»I« 

I I I I I I 



I I I I I I 

V E C T 
I I I I I I 



I I 

* I STAT1 
I I 



I I I 
I * B 
III 



I I I I I 

» I • L I 
I I I I I 



* I STAT2 
I I 



I I 

I » I STAT3 
I I 



DEFINITION OF FORMAT 



CONTAINS DMCU CSR ADDRESS 

BITS 00-08 IS DMCU VECTOR ADDRESS 
BIT15=1 MICRO-PROCESSOR HAS CRAM 
BIT15=0 MICRO-PROCESSOR HAS CROM 
BIT14B1 ???? TURNAROUND CONNECTOR IS ON 
AIT14=0 NO TURNAROUND CONNECTOR 
STT13»0 LINE UNIT IS AN M8201 
BIT13el LINE UNIT IS AN M8202 
«TT12=1 NO LINE UNIT 

BITS 09-11 TS DMCU BR PRIORITY LEVEL 

LOW BYTE IS SWITCH PACM (DDC^P LINE NUMBER! 
HIGH BYTE IS SWITCH PAC*2 (BMA73 BOOT ADD) 



RTT0=1 DO FREF PUNNING TESTS nN K«C 

(•"'ST Bf. SET TO A ONF. MANUALLY [PROGRAMS C, AMD M C1N1Y)) 
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470 

471 (PROGRAM INITIALIZATION 

477 (LOCK OUT INTERRUPTS 

47 3 ,SET UP PROCESSOR STACK 

*7 4 j SET UP POWER FAIL VECTOR 

475 jCLEAR PROGRAM CONTROL FLAGS AND COUNTS 

476 > TYPE TITLE MESSAGE 
477 



478 


002002 


012737 


000340 


177776 


.START: 


MOV 


1340, PS 


LOCK OUT INTERRUPTS 


479 


002010 


OJ 2706 


001200 






MOV 


1 STACK, SP 


SET UP STACK 


480 


002014 


01 2737 


005240 


000024 




MOV 


# ,PFAIL, 9D24 


SET UP POWER FAIL VECTOR 


191 


002022 


01 3737 


001310 


001314 




MOV 


DMNUM, SAVNUM 


SAVE NUMBER OF DEVICES IN SYSTEM, 


492 


002030 


005037 


007556 






CLR 


SWFLG 


CLEAR SOFT TYPEOUT FLAG 


493 


002034 


105037 


001325 






CLRB 


ERRFLG 


CLEAR ERROR FLAG 


4S 4 


002040 


105037 


001327 






CLRB 


QV.FLG 


ZERO QUICK VERIFY FLAG 


485 


002041 


01 2737 


001470 


001320 




MOV 


# DM, MAP" 1 0, CREAM 


GET MAP POINTER, 


496 


002052 


012737 


001676 


001322 




MOV 


•CNT ,MAP"4, MILK 


GET PASS COUNT MAP POINTER 


4B7 


002060 


012737 


100000 


001316 




MOV 


PBIT15,RUN 


•POINT POINTER TO FIRST DEVICE, 


4 9 9 


002066 


01 2700 


001702 






MOV 


#CNT,MAP, PO 


PASS COUNT POINTER TO RO 


499 


002072 


005020 






23S 1 


CLR 


(R0) + 


CLEAR TABLE 


490 


002074 


022700 


002002 






CMP 


tCNT .MAP+100, RO 


DONE YET? 


491 


002100 


001 374 








BNE 


23S 


KEEP GOING 


492 


002102 


005037 


001234 






CLR 


L5TERR 


CLEAR LAST ERROR POINTER 


493 


002106 


01 2737 


000001 


001226 




MOV 


# 1 , TSTNO 


SET UP FOR TEST 1 


494 


0021 14 


012737 


002002 


00121 4 




MOV 


t .START, RETURN 


SET UP FOR POWER FAIL BEFORE 


496 
















TESTING STARTS 


496 


002122 


01 3746 


000006 






MOV 


9*6, -(SP) 


SAVE CURPENT VECTORS 


497 


0021 26 


01 3746 


000004 






MOV 


M4»"(SP) 




199 


0021 32 


01 2737 


002166 


000004 




MOV 


#61, P#4 


SET UP FOR TIMEOUT 


499 


002140 


012737 


177570 


001202 




MOV 


#177570, 5WR 


SET SWR TO HARD SWR ADDRESS 


500 


0021 46 


012737 


177570 


001200 




MOV 


•177570, DISPLAY 


SET DISPLAY TO HARD SWR ADDRESS 


501 


002154 


022777 


177777 


177020 




CMP 


l"l , 8SWP 


REFERENCE HARDWARE SWITCH REGISTER 


502 


002162 


001402 








BEQ 


63+2 


IF = -1 USE SOFT SWR ANYWAY 


503 


002164 


00O407 








BR 


7 j 


IF IT EXISTS AND NOT s -1 USE HARD SWR 


5 4 


002166 


022626 






6$: 


CMP 


(SP)* , (SP)* 


ADJUST STACK 


505 


002170 


012737 


000176 


001202 




MOV 


# SWREG,SWR 


POINTER TO SOFT SWR 


506 


002176 


012737 


000174 


001200 




MOV 


•DISPREG, DISPLAY 


POINTER TO SOFT DISPLAY REG 


507 


002204 


012637 


000004 




731 


MOV 


(SP) + ,M4 


RESTORE VECTORS 


509 


002210 


012637 


000006 






MOV 


(SP)+,fl»6 




509 


002214 


105737 


001 324 






TSTB 


INIFLG 


HAS INITIALIZATION BEEN PERFORMED 


510 


002220 


001006 








BNE 


209 


BR IF YES 


51 1 


002222 


022737 


003432 


000042 




CMP 


»8SNDAD,9#42 


IF ACT-11 AUTOMATIC MODE, DON'T TYPE ID 


512 


00223O 


001402 








BEQ 


20S 




51 3 


0^2232 


104402 


001000 






TYPE 


, MTITLE 


TYPE TITLE MESSAGE 


514 


002236 


004737 


007362 




20*! 


JSP 


PCCKSHR 


CHECK FOR SOFT SWR 


515 


002242 


017737 


176734 


001236 




MOV 


9SWR.STPTSW 


STORE STARTING SWITCHES 


51ft 


002250 


005737 


00004? 






TST 


M42 


IS IT RUNNING IN AUTO MODE? 


517 


002254 


001402 








BEQ 


,♦6 


BR IF NO 


519 


002256 


005037 


001236 






CLP 


STRTSW 


IF YES, CLEAR SWITCHES 


519 


002262 


032737 


000001 


001236 




BIT 


tSWOO, STRTSW 


IF SWOOsl, QUESTIONS ARE ASKED. 


52" 


002270 


001 01 2 








BNE 


I7t 


BR IF SWOOsl 


571 


002272 


105737 


001236 






TSTB 


STRTSW 


BIT7sl?? 


52? 


002276 


1 O0007 








BPL 


17» 


BR IF SW07«0 


S73 


002300 


005737 


001306 






TST 


DMACTV 


APE ANY DEVICES SELECTED? 


524 


002304 


001006 








BNE 


16S 


BP IF YES 


57* 


002306 


104402 


007056 






TYPE, 


NOACT 


NO DEVICES SELECTED, 



DZD*H MACYU 27UO06) 14-DEC-76 16(32 PAGE 13 PAGE ! 0033 

DZD"M.P11 09-DFC-76 14*5' PROGPAM INITIALIZATION AND START UP, 



5 ?ft 


002312 


oooooo 






HALT 






(STOP THE SHOW 


5?7 


002314 


000776 






BP 




• -2 


1 DISQUALIFY CONTINUE SWITCH 


5?9 


002316 


004737 


010252 




17J: JSR 




PC, AUTO. SIZE 


;G0 DO THE AUTO SIZE 


579 


002322 


105737 


001324 




16S! TSTB 




INIFLG 


(FIRST TIME? 


530 


002326 


001410 






BEQ 




313 


»BR IF YES 


531 


002330 


105737 


001236 




TSTB 




STRTSW 


> IF USING SAME PARAMETERS DONT TYPE MAP 


5 32 


002334 


100431 






BMI 




IS 




533 


002336 


032737 


000006 


001236 


BIT 




♦BIT1 JBIT2,STRTSW(IS TEST NO. OR LOCK SELECTED 


534 


002344 


001403 






BEQ 




243 


(IF NO THEN TYPE STATUS 


535 


002346 


000424 






BR 




13 


I IF YES DO NOT TYPE STATUS 


536 


002350 


005137 


001324 




21 s: COM 




INIFLG 


»SET FLAG 


537 


002354 


104402 


0061 26 




24$ | TYPE 




, XHEAD 


( TYPE HEADER 


5 30 


002 360 


012704 


001500 




MOV 




•DM .MAP, R4 


(SET POINTER 


51° 


002364 


010437 


001246 




5St MOV 




R4 , TEMPI 


( SET ADDRESS 


5 40 


002370 


01 2437 


001250 




MOV 




(P4)+,TEMP2 


(SET CSR 


541 


002374 


0014)1 






BEQ 




IS 


; ALL DONE IF ZERO 


54? 


0"2376 


012437 


001252 




MOV 




(R4)+,TEMP3 


j SET STAT1 


5 43 


002402 


012437 


001254 




MOV 




(R4)+,TEMP4 


;SET STAT2 


544 


002406 


012437 


001256 




MOV 




(P4)+, TEMPS 


ISET STAT3 


545 


00241 2 


1 04410 






CONVRT 




1 TYPE OUT STATUS MAP 


546 


002414 


007230 






XSTATQ 




1 


547 


002416 


000762 










ss 




549 

549 


002420 


012700 


001500 




IS: MOV 




IDM.MAP,RO 


|R0 POINTS TO STATUS TABLE 


55T 










t (*»••**•»*»*»•*#*•••••»•••*•*»•#•*•*•»*«•«*«******»•*»***••••»*•*•••• 


551 










»f*AUTO SIZE 


TEST 




55? 










((♦THIS TEST 


VERIFYS THAT THE 


DMC11S AND/OP KMC11S ARE AT THE CORRECT FLOATING 


553 










1 |*ADDRESSES 


FOP YOUR SYSTEM. 


IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 


554 










J»*CHECK THE 


ADDRESSES OF ALL 


FLOATING DEVICES (DJ, DH, DQ, DU, DUP, LK , DMC, DZ, KMC) , 


55* 










((•IF THERE ARE 


NO OTHER FLOATING DEVICES BEFORE THE DMC11, THE FIRST 


556 










1(*DMC11 ADDRESS IS 760070, KMC 1 1 IS 760110. NO DEVICE SHOULD EVER BE AT 


557 










I (»ADDRESS 760000, 




S59 










! ; **»»»»»»»•«»*»»*»***** ••»***•**•*****»«•*«****«« **«**»♦«***»*•**»» bs* 


559 

56? 


002424 


013746 


000004 




MOV 




9*4, "(SP) 


»SAVE LOC 4 


561 


002430 


01 3746 


000006 




MOV 




M6, "(SP) 


:SAVE LOC 6 


5*2 


002434 


006037 


000006 




CLR 




9*6 


(CLEAR VEC + 2 


56 3 


002440 


005037 


001252 




CLR 




TEMP3 


1 CLEAR FLAG 


564 


002444 


005005 






CLP 




R5 


(R5=0=DMC, R53-1SKMC 


565 


007446 


011037 


001404 




A'ISTRT: MOV 




(RO),DMCSR 


1 GET NEXT DMC CSR 


566 


00745? 


001530 






BEQ 




AUDONE 


(BP IF DONE 


567 


002454 


005705 






TST 




R5 


jDMC OR KMC? 


5h = 


002456 


0«1005 






BNF 




1$ 


J BR IF KMC 


569 


007460 


032760 


1O0O00 


000002 


BIT 




»BIT15, 2(901 


iCHECK FOR DMC CSR 


57^ 


002466 


10 44 






BSE 




OK 


(SKIP IF NOT DMC 


571 


002470 


000404 






BP 




23 


; ITS A DMC SO CONTINUE 


57? 


00247? 


032760 


1 O0"0O 


000002 


1S: BIT 




IPIT15,2(RC1 


(CHECK FDR KMC CSR 


57 3 


002500 


001437 






bfq 




OK 


(SKIP IF NOT KMC 


574 


002507 


012737 


002606 


000004 


?!l MOV 




tN0DEV,a#4 


(SET UP FOR TIMEOUT 


575 


00251" 


005705 






TST 




P5 


(OMC OR K"C? 


57* 


002512 


011003 






BNE 




3S 


;89 IF *>C 


577 


"(17514 


Ol77n3 


000006 




■10V 




8 6,93 


;93 IS COUNT or DF.VICE5 BEFORE DMC 


579 


002570 


000402 






po 




45 


■ GO ON 




'10252? 


017703 


1flO n 1 r> 




?s: ><nv 




•10,93 


;R3 IS CnnhT CF DEVICES HEFORt KMC 


5 ■" 


«02«i26 


n ' 2 7 " 7 


"02727 




4«! «nv 




«DEVT»B, c ? 


;9? IS PEVICF T*9T,£ PPNTER 




>> 7 5 * 7 


12 7"! 










sift') 10, = 1 





DZDMK 


M&CY11 


27 ( 1 006) 


14-DEC-76 16:32 PAGE 


14 






PAGE: 


DZDMH.P1J 09 


»DEC"76 


14J59 PROGRAM 


INITIALIZATION 


AND START UP, 




582 


002536 


00571 1 




FLOAT; 


TST 


CB1) 


(CHECK ADDRESS IN Rl 


58 3 


002540 


1 1 1204 






MOVE 


(P2),R4 


(IF NO TIMEOUT, GET NEXT ADDRESS 


58 4 


002542 


060401 






ADO 


R4,R1 


(IN Rl 


595 


002544 


005201 






INC 


Rl 


1 


586 


002546 


040401 






BIC 


R4,R1 


' 


587 


002550 


005703 








R3 


(ANY MORE DEVICES TO CHECK FOR? 


598 


002552 


001371 






BNE 


FLOAT 


jBR IF YES 


589 


002554 


012737 


002612 000004 




MOV 


iERRr 0*4 


(OK ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT 


590 


002562 


00571 1 




FY: 


TST 


(Rl) 


(CHECK DMC ADDRESS 


591 


002564 


0201 37 


001404 




CMP 


Rl* DMCSR 


j DOES IT MATCH 


592 


002570 


001403 






BEO 


OK 


(BR IF YES 


59 3 


002572 


062701 


000010 




ADD 


♦10, Rl 


(GET NEXT DMC ADDRESS 


594 


002576 


000771 






BR 


FY 


(DO IT AGAIN 


595 


002600 


062700 


00001 


OK ! 


ADD 


#ie f p.e 


(SKIP TO NEXT DMC CSR 


596 


002604 


000720 






BP 


AUSTRT 


(CONTINUE 


597 


002606 


1 22'43 




NOOEVl 


CMPB 


CP2)*»-CR3) 


(ON TIMEOUT, INC R2, DEC R3 


598 


002610 


000002 






RTI 




(RETURN 


599 


002612 


005737 


001252 


ERR: 


TST 


TEMP3 


(CHECK FLAG IF = TYPE HEADER 


601 


002616 


001014 






BNE 


IS 


(SKIP HEADER 


601 


002620 


104402 






TYPE 


(TYPEOUT HEADER MESSAGE 


602 


002622 


007125 






CONERR 




(CONFIGURATION ERROR!!} S 


603 


002624 


012737 


002612 001276 




MOV 


(ERR. SAVPC 


(SAVE PC FOP TYPEOUT 


604 


002632 


1 0441 1 






CNVRT 




(TYPE OUT ERROR PC 


605 


002634 


002702 






ERRPC 




1 


606 


002636 


1 04402 






TYPE 




(TYPE REST OF HEADER 


607 


002640 


007167 






CNEPR 




f 


608 


002642 


012737 


177777 001252 




NOV 


#"1,TEMP3 


(SET FLAG SO IT ONLY GETS TYPED ONCE 


60° 


002650 


010137 


001 262 


1S1 


MOV 


RlrSAVRl 


(SAVE Rl FOR TYPEOUT 


6 1 


002654 


104410 






CONVPT 






6 1 1 


002656 


002710 






CONTAB 




(TYPE CSR VALUES 


6 1 2 


002660 


005705 






TST 


R5 


(DMC OR KMC ? 


61 3 


002662 


001 003 






BNE 


38 


(BR IF KMC 




002664 


1 04402 






TYPE 






61 5 


002666 


007210 






DMC W 






6 1 <■ 


002670 


000402 






BR 


4S 


(CONTINUE 


617 


002672 


104402 




3s: 


TYPE 






61 8 


002674 


007220 






KMCM 






619 


002676 


022626 




4SI 


CMP 


(SP)+» (SP3+ 


•ADJUST STACK 


620 


002700 


0007 37 






BR 


OK 


(BP TO GET OUT 


621 


002702 


000001 




EPRPC: 


1 






62? 


002704 


006 


002 




.BYTE 


6>2 




623 


002706 


001276 






SAVPC 






624 


002710 


000002 




CONTAB: 


2 






625 


00271 2 


006 


004 




-BYTE 


6.4 




626 


002714 


001262 






SAVR1 






627 


002716 


006 


002 




.BYTE 


6,2 




628 


002720 


001404 






DMCSR 






629 


002722 


007 




DEVTAB: 


.BYTE 


7 


(DJ 


630 


002723 


017 






.BYTE 


17 


;DH 


631 


002724 


007 






.BYTE 


7 


( DQ 


632 


002725 


007 






.BYTE 


7 


( DU 


63' 


002726 








.BYTE 






634 


002727 


007 






.BYTE 


7 


jLK 


635 


0027 30 


007 






.BYTE 


7 


(DMC 


636 


002731 


007 






.BYTE 


7 


(DZ 


637 


002732 


007 






.BYTE 


7 


(KMC 



DZDMH 


MACY1 1 


27 C 1006) 


14-DEC 


DZDHH.Pt! 09 


-DEC-76 


14:59 


638 




002734 




63° 


002734 


005705 




640 


002736 


001005 




641 


O02740 


012705 


177777 


642 


002744 


012700 


001500 


sn 


002750 


000636 




644 


002752 


012637 


000006 


645 


002756 


012637 


000004 


646 


002762 


032737 


000010 


647 


002770 


001422 




648 


002772 


104402 


006046 


649 


002776 


005000 




651 


003000 


000000 




6M 


003002 


027737 


176174 


652 


003010 


101404 




65 3 


003012 


104402 


005707 


654 


003016 


000000 




655 


003020 


000776 




656 


003022 


017737 


176154 


657 


003030 


013700 


001306 


658 


003034 


000000 




6*9 


003036 


012700 


000300 


660 


003042 


012701 


000302 


661 


003046 


010120 




662 


003050 


005021 




663 


003052 


022"21 




664 


003054 


022700 


001000 


665 


003060 


001372 




666 








667 








66* 








669 








670 


003062 


012706 


001200 


671 


003066 


013746 


000006 


67? 


O03072 


01 3746 


000004 


673 


003076 


005000 




674 


003100 


012737 


003144 


675 


003106 


005037 


000006 










677 


0031 1.4 


022700 


157776 


67" 


003120 


001374 




679 


0031 22 


162700 


007776 


680 


003126 


010037 


001304 


6=1 


003132 


012637 


000004 


682 


0031 36 


012637 


000006 


6H 3 


003142 


000413 




684 


003144 


022626 




6'J* 


003146 


162700 


000004 


6-Hh 


003152 


162700 


007776 


687 


003156 


027700 


030000 


f>an 


003162 


001 361 




f» 


003164 


01270O 


037400 


6on 


0031 70 


000756 




6° ' 


003172 


012737 


000340 


692 


no )?no 


'•327 }7 


000004 


6^3 


■103206 


00) 111 
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PROGRAM INITIALIZATION AND START UP. 



PAGE: 0035 



1 77776 
001236 



AUDONE: 


TST 


R5 


( DMC? 




BNE 


IS 


(BR IF KMC AND ALL DONE 




MOV 


*-l,P5 


(SET R5 TO -1 t KMC ) 




MOV 


#DM,MAP,R0 


(RESET RO TO START OF TABLE 




BR 


AUSTRT 


(GO DO KMC'S 


IS: 


MOV 


(SP)+,9#6 


; RESTORE LOC 6 




MOV 


(SP)+,9t4 


(RESTORE LOC 4 




BIT 


»SW03,STRTSW 


(SELECT SPECIFIC DEVICES?? 




BEQ 


38 


(BR IF NO, 




TYPE 


, MNEW 


(TYPE THE MESSAGE, 




CLR 


RO 


(ZERO DATA LIGHTS 




HALT 




(WAIT FOR USER TO TELL WHAT DEVICES TO RUN 




CMP 


$SHR,SAVACT 


(IS THE NUMBER VALID? 




BLOS 


2S 


(BR IF NUMBER IS OK, 




TYPE 


, MERR3 


f TELL USER OF INVALID NUMBER , 




HALT 




(STOP EVERY THING, 




BR 


.-2 


(RESTART THE PROGRAM AGAIN, 


2SI 


MOV 


9SWR.DMACTV 


j GET NEW DEVICE PATTERN 




MOV 


DMACTV, RO 


(SHOW THE USER WHAT HE SELECTED, 




HALT 




(CONTINUE DYNAMIC SWITCHES, 


3S( 


MOV 


#300, RO 


(PREPARE TO CLEAR THE FLOATING 




MCV 


#302, Rl 


(VECTOR AREA. 300-776 


4$: 


MOV 


R1,(R0)+ 


(START PUTTING "PC + 2 - HALT" 




CLR 


CR15 + 


(IN VECTOR AREA, 




CMP 


CR0)+,(P1)+ 


(POP POINTERS 




CMP 


#1000, RO 


( ALL DONE?? 




BNE 


4$ 


(BR IF NO , 


(TEST START AND 


RESTART 




.BEGIN: 


MOV 


#STACK,SP 


(SET UP STACK 




MOV 


?#6,-(SP) 


t SAVE LOC 6 




MOV 


M4,-(SP) 


(SAVE LOC 4 




CLP 


RO 


(START AT 




MOV 


#2S,»#4 


(SET UP FOR TIME OUT 




CLP 


916 


(TO AUTOSIZE MEMORY 






i ru > t 






C"P 


#157776, RO 


(IS IT AT LEAST 28K 




BNE 


68 


(BR IF MO 




SUB 


#7776, RO 


j SAVE 2K FOR MONITORS 


7$: 


MOV 


RO , MEMLIM 


(STORE MEMORY LIMIT 




MOV 


CSP)+,M4 


(RESTORE LOC 4 




MOV 


CSP)+,9#6 


; RESTORE LOC 6 




BR 


108 


(CONTINUE 


2$: 


CMP 


(SP)+, (SP)+ 


( ADJUST STACK 




5UB 


#4,R0 


( GET LAST GOOD ADDRESS 




SUB 


#7776 , RO 


(SAVE 2K FOR MONITORS 




CMp 


#30000, RO 


(IS IT 8K? 




B*.'F 


7S 


:RR IF 10 




MOV 


#37400, RO 


(IF BK DO^l'T SAVE 2K 




BP 


7S 




10$; 


mov 


•340, PS 


;LOCK 0"T INTERRUPTS 




BTT 


*nlT2,STPTS* 


;CHK!CK FOR LOCK ON TEST 




PECj 


1 S 


■ rr IF so LtiCK DESIRED , 



DZDMH MACY11 27C1006) 14-DEC-76 1 6 1 32 P&.GE 16 

DZDMH.P11 09-DCC-76 14159 PROGRAM IMITIALIZ&TtON AND START UP, 



PAGE i 0056 







j 04402 










, MXjOCK 


jTYPE LOCK SELECTED, 


695 






U U U / 41; 








»NUr t 1 iot 


.JkPiTIIQT ^ffiPF RntlTTWF 




00322/ 


01 2737 


000240 


003524 




mov 


SKUr, TT5T+2 


. CCT ttD Tfl f.flfK 
} AEii t' " i U 4-1 Uv r- 


697 


003230 


000406 








BR 


3$ 


(CONTINUE ALONG, 


696 


003232 


01 3737 


003640 


003522 


151 


MOV 


BBWfTTST 


{PREPARE NORMAL SCOPE ROUTINE 


699 


0032«0 


01 3737 


003642 


003524 




NOV 


BRX, TTST+2 


1 LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 


700 


003246 


012737 


007620 


001214 


36! 


MOV 


ICYCLE, RETURN 


1 START AT "CYCLE" FIND WHICH DEVICE TO TEST 


701 


003254 


032737 


000002 


001236 


4(1 


BIT . 


#3W01,STRTSW 


j IS TEST NO. SELECTED? 


70? 


003262 


001002 








BNE 


5$ 


t BR IF YES 


703 


003264 


104402 


005657 






TYPE 


,m 


t TYPE R 


704 


003270 


000177 


175720 




581 


JMP 


(RETURN 


j START TESTING 



MAC Yl 1 27(1006) I4-DEC-76 



DZHMh.pH 09 


-DEC-76 


14159 


7 0S 
7 Of. 








707 








711* 








709 








7 1 








71 1 


003274 


000005 




712 


003276 


005037 


001234 


7 1 3 


0"3302 


105037 


001 325 


714 


003306 


005237 


001230 


715 


003312 


013777 


001230 


71* 


003320 


1O4402 


005635 




"> Z 3 5 2 4 






71<= 


003330 


104411 


003456 


719 


003334 


104402 


006002 


770 


003340 


104411 


003464 


721 


003344 


104402 


006010 


7?2 


003350 


104411 


003472 


773 


003354 


JO4102 


006021 


724 


003360 


10441 1 


003500 


725 


003364 


013700 


001322 


726 


003370 


013720 


001230 


777 


003374 


013720 


001232 


779 


003400 


005337 


001314 


729 


003404 


001017 




73" 


003406 


112737 


000377 


711 


003414 


01 3737 


001 310 


737 


003422 


01 3701 


000042 


733 


O03426 


001406 




731 


003430 


000005 




7 3S 


003432 






736 


003432 


00 4711 




737 


003434 


000240 




739 


003436 


000240 




739 


003440 


000740 




7 50 


003442 


000240 




741 


003444 


012737 


007620 


742 


003452 


0001 37 


007620 


743 


0^3456 


000001 




7 44 


003460 


"06 


002 


7 15 


003462 


0014O4 




7 ib 


003464 


000001 




747 


003466 


004 


O02 


749 


003470 


001 374 




749 


003472 


000001 




7 5 


003474 


006 


002 


7M 


003476 


001730 




752 


O03500 


000001 




751 


003502 


006 


"02 


754 


003504 


OH232 




755 








75* 








757 








75* 










r n 75 ois 


" 37 


nn7i5j 




0" 35 1 2 


P 1 0" 1 5 





16132 PAGE 17 

END OF PASS ROUTINE 



PAGE i 0037 



( END OF PASS 

| TYPE NAME OF TEST 

( UPDATE PASS COUNT 

[CHECK FOR EXIT TO ACT-il 

I RESTART TEST 



.FOP I 



RESET 
CLR 
CLRB 
INC 
MOV 
TYPE 
TYPE 
CNVRT 
TYPE 
CNVRT 
TYPE 
CNVRT 
TYPE 
CNVRT 
MOV 
MOV 
MOV 
DEC 
BNE 
MOVB 
MOV 
MOV 
BF.O 
RESET 

SENDADl 

JSR 
NOP 
NOP 
NOP 
NOP 

BESTPTl MOV 
JMP 



XCSPI 



1 

, BYTE 
DMCSP 
1 

.BYTE 

DMRVEC 
1 

.BYTE 

PASCNT 

1 

.BYTE 

EPRCNT 



LSTERR 
ERRFLG 
PASCNT 

PASCNT, ^DISPLAY 

,MEPASS 

.MCSRX 

,XCSR 

,MVECX 

,XVEC 

.MPASSX 

,XPASS 

, MERRX 

, XERR 

MILK,R0 

PASCNT, CP0) + 

ERRCNT, (R0)+ 

SAVNUM 

RESTRT 

»377,GV,FLG 

DMNUM, SAVNUM 

9(42, Rl 

RESTRT 



HCYCLE, RETUPN 
CYCLE 



6,2 
4,2 
6,2 
6,2 



I MAKE THE WORLD CLEAN AGAIN, 

(CLEAR LAST ERROR PC 

1 CLEAR ERROR FLAG 

( UPDATE PASS COUNT 

(DISPLAY PASS COUNT 

(TYPE END PASS 

(TYPE CSR 

( SHOW IT 

; TYPE VECTOR 

(SHOW IT 

(TYPE PASSES 

(SHOW IT 

(TYPE ERRORS 

| SHOW IT 

( GET POINTER TO PASS COUNT 
(STORE PASS COUNT FOR THIS DMC11 
(STORE ERROR COUNT FOR THIS DMCH 
(ARE ALL DEVICES TESTED? 
(BR IF NO, 

(SET THE QUICK VERIFY FLAG, 
(RESTORE THE COUNT 
(CHECK FOR ACT-11 OR DDP 
(IF NOT. CONTINUE TESTING 
(STOP THE SHOW—CLEAR THE WORLD 



» serve i.onp and intf.pation handier 



nr 5nrT $WR 
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ft A ftft ft ft 












J"' 


000437 




764 


„,* 




175452 


765 


003532 


1 00034 




766 


003534 




175446 


767 


O03540 


000415 




768 


003542 


032777 


004000 


769 


00 3550 


001 Oil 




770 


003552 


i 057 37 


uGi 32 / 


771 


003556 


001 406 




772 


003560 


005237 


001 224 








001224 




' 






775 


357* 


l e t-* 


00 ' 325 


776 


003600 


0050 37 


0012 24 




003604 


005037 


ftfll 

UU 1 c «u 




003610 




ftftftft*5 ft 




00 3616 


0137 37 


001216 




00 36 24 


011600 




781 


003626 






782 


003630 


01 3701 


001404 


783 


on 3634 




175354 


78 4 


003640 






785 


003642 






6 








787 








7 8 8 








789 








7*90 


00 3644 


00 47 37 


007 362 


79 1 


003650 


0327 77 


001000 


7 9 2 


003656 


001 405 




793 


003660 




ftdi 99n 




794 


0^3664 


001 402 




795 


00 3666 




00 1220 


lot 


003672 


000002 












•70a 
























8<M 


0" 3674 


.... 




ST? 






ftft ft ft ft *5 




003702 


062766 


000002 


SO 4 


"nil! i 


0057 37 


007556 


a * 




ft A 1 ft ft d 




f't. 


00171 6 




rt 1 ft Aft ft 


P07 


001774 






308 


003726 


1057J5 




ft 09 


00 37 30 


1 00OQ2 




810 


003732 


104402 


005574 


811 


003736 


105777 


175246 


8 t ? 


003742 


100375 




si 3 


003744 


112577 


175242 


8 1 4 


003750 


001357 




8ts 


00?75? 


012605 




916 


003754 


000002 





BRWj 
BPXt 



.TYPE: 



BIT 


IBIT14, SSWR 


J JbUUr Un lfllo ltoi f 




BEQ 


IS 


,od Tjr un fiv T.nrv cum si * tkts 




BR 


3$ 




JUUV> ~z<tvj 


TSTB 


9TKCSR 


jKEYBOAD DOME? 




BPL 


35 


.an to" Mfi ft ryftt • uTt if irv Tn fin to 




MOV 


8TKDBR.R0 


J vllbA K uunt oil 




BR 


2S 


j CONTINUE 




BIT 


tSHl 1 i 9SWR 






BNE 


2$ 






TSTB 


uV.FLG 


P n A Vc ? A S3E3 BEcCu^PLETEDr 




BEQ 


2$ 






INC 


LPCHT 






CMP 


LPCNT. ICOUNT 


J AKc. A Liu 1 ILpA X iUNO UUnb f f 




BLOS 


3S 


J OK IT r*u l IE* i 




CLRB 


ERRFLG 


y PREPARE FOR MEW TEST 








j ST^RT IC0UNTER AT 




CLR 


LOCK 






HOV 


120, ICOUNT 


* RESET ITERATIONS 




MOV 


NEXT, RETURN 


j GET NEXT TEST 




MOV 


tSP),R0 


jPOP R0 OFF OF THE STACK 




P0P2SP 








MOV 


DHCSR.Rl 


jRl CONTAINS BASE DMC ADDRESS 




JMP 


9RETURN 


» fin nfl tuf TPftT 




1 407 








437 








3 CHECK 


FOR FREEZE ON 


CUKK&rii UAiA 




JSR 


PCCKSWR 


j CHECK FOR SOFT SSKR 




BIT 


*SW09,9SWR 


jIS SW09=1CSET)? 




BEQ 


It 


J BR IF NOT SET, 




TST 


LOCK 






BEQ 


IS 






MOV 


L0CK/C5P) 


j GOTO THE ADDRESS IN LOCK, 




RTI 




j GO BACK , 




(TELETYPE OUTPUT ROUTINE 




MOV 


R5,-(SP) 


jSAVE R5 ON THE STACK, 




MOV 


f»2(SP),R5 


jGET ADDRESS OF MESSAGE, 




ADD 


#2,2(SP5 


fPOP OVER ADDRESS, 




TST 


SWFLG 


» SOFT SWR MESSAGE? 




BNE 


IS 


jIF YES TYPE IT OUT REGARDLESS OF 


5 


BIT 


*SM12,»SWR 


> INHIBIT ALL PRINT OUT?? 




BNE 


3$ 


jBR IF NO PRINT OUT WANTED (SW12* 




TSTB 


CR5) 


jIS NUMBER MINUS? (MSB=l CBIT7) ) 




BPL 


2$ 


»BR IF NUMBER IS PLUS 




TYPE 


, MCRLF 


j TYPE A CR/LF1 




TSTB 


9TPCSR 


J TTY READY? 




BPL 


2S 


jBR IF NO. 




MOVB 


CR5)+,?TPDBR 


JPRINT CURRENT CHAR, 




BSE 


4$ 


jIF NOT 2ES0 KEEP PRISTINGJ 




MOV 


(5P)+,R5 


] END OF OUTPUT, RESTORE R5 




RTI 




jGO HOME 
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c 1 <5 


003756 


010346 




, INSTR: 


MOV 


R3,-CSP) 


870 


003760 


010446 






MOV 


R4,-tSP) 


871 


003762 


017637 


000004 004000 




MOV 


84(SP), .MSG 


87? 


O03770 


062766 


000002 000004 




ADD 


«2,4(SP) 


»73 


003776 


104402 




.insti: 


TYPE 




874 


ft 4 


OOOftOfl 




,nSG: 







^75 


004002 


012704 


007256 




MOV 


f INBUF,R4 


8?h 


004006 


012703 


000007 




MOV 


I7,R3 


R?7 


O04012 


105777 


175166 


1$: 


TSTB 


9TKCSR 


828 


004016 


100375 






BPL 


1$ 


879 


004020 


117714 


175162 




MOVB 


3TKDBP, CR4) 


8?0 


O04O24 


142714 


000200 




BICB 


»200,(R4) 


831 


004030 


122427 


000015 




CMPB 


CR4)+,I15 


832 


004034 


001 417 






BEQ 


INSTR2 


833 


004036 


105777 


175146 


ist 


TSTB 


STPCSR 


8 34 


004042 


100375 






BPL 


2$ 


835 


0040*4 


017777 


175136 175140 




MOV 


9TKDBR, PTPDBR 


836 


004052 


005303 






DEC 


R3 


837 


004054 


001356 






BHE 


IS 


B3S 


004056 


012604 






MOV 


(SPJ+.R4 


339 


004060 


012603 






MOV 


(SP5+,R3 


840 


004062 


104402 


005570 


, INSTEl 


TYPE 


,MQM 


841 


004066 


010346 






MOV 


R3,-(SP) 


B47 


004070 


010446 






MOV 


R4,-(SP) 


843 


004072 


000741 






BR 


, INSTl 
CSP)+»R4 


844 


004074 


012604 




INSTR2I 


MOV 


845 


004076 


012603 






MOV 


(SP)+,R3 


816 


0041 00 


000002 






RTI 




347 














a 48 










I CONVERT ASCII STRING 


849 














a 50 














a* l 


004102 


01O546 




.PARAM: 


MOV 


R5.-CSP) 


857 


004104 


010446 






MOV 


R4,-tSP) 


853 


0041 06 


016605 


000004 




MOV 


4(SP),R5 


954 


0041 12 


P12537 


004272 




MOV 


(RSJ+.LOLIM 



jSAVE R3 ON STACK 
| SAVE R4 ON STACK 



056 
357- 
358 
859 
P60 
361 
362 
863 
3*4 



004122 
004126 
004132 
0041 36 
004142 
0041 44 
004150 
004154 
0114156 
004162 
004164 
004170 
004172 
0041 76 
004700 
00 -.20 4 
00 4706 



012537 
112537 
112537 
01 0566 
005005 
O12704 
122714 
001420 
121*27 
002415 
121477 
00301 2 
1 4271 4 
152405 
172714 
001 406 
OOft 105 



004276 
004300 
004301 
000004 

007256 
000015 

000060 

000067 

000060 
0O0O1 5 



j RESTORE R4 
j RESTORE R3 



MOV 
MOVB 
MOVB 
MOV 

PARAM1 : CLP 
MOV 
CMPB 
BEQ 

is: cmpr 

BLT 

CMPB 

BT-T 

BJCB 
BISP 
C«PB 
BFQ 
A SI 



(R5)+, DEVADR 
CR5)+,L0BITS 
(R5)+, ADRCNT 
P5,4CSP) 
R5 

#INBUF,R4 

#15, CP4) 

PARERR 

(P4),#60 

PARERR 

(R4),*67 

PARERR 

#60, (R43 

CR41+.R5 

#15. CP4) 

LIMITS 

85 
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A 7 3 


004210 


006305 






ASL 


R5 






87* 


004212 


006 305 






ASL 


RS 






875 


00421 4 


OOU rflU 








It 






876 


004216 


1 04404 




PARERRI 


INSTER 








877 


004 220 


000750 






BR 


PAR AMI 






87 8 


















879 










j TEST 


TO SEE IF NUMBER 


IS WITHIN 


LIMITS 


88 


















a 81 


















8 8 2 


004222 


0205 37 


004274 


LIMITS] 


CMP 


R5.HILIM 






883 


004226 


101373 






BHI 


PARERR 






884 


004230 


020537 


004272 




CMP 


R5.LOLIM 






885 


004234 


103770 






BLO 


PARERR 






886 


004236 


1 33705 


004300 




BITB 


LOBITS,R5 






887 


004242 


001365 






BNE 


PARERR 






888 


















889 










j STORE 


NUMBER AT SPECIFIED ADDRESS 


890 


















8 91 


004244 


01 3704 


004276 




MOV 


DEVADR*R4 








004 250 






It! 


MOV 


R5,CR4)+ 








004252 


062705 


000002 




ADD 


• 2,85 






8 9 4 


004256 


105 337 


004301 




DECB 


ADRCNT 










001 372 






BNE 


it 






B06 




012604 






MOV 


(SP)+,R4 






897 


004266 


01 2605 






MOV 


(SP5+.R5 






898 


>J 1' 4 jC / 


Aftrtftn 9 

UUUUu« 






RTI 








099 


004272 


000000 




LOLIMt 











900 


004274 


000000 




HILIMl 











901 


004276 


000000 




DEVADRt 











902 


004300 


000000 




LOBITSt 











903 




004301 




ADRCNTcLOBITS+1 






90* 


















905 










1 SAVE 


PC Or TEST THAT 


FAILED AND 


R0-R5 


906 


















907 


















908 


004302 


016637 


000004 001276 


.SAV05I 


MOV 


4(SP),SAVPC 


»SAVE P7 


(PC) 


909 


















910 
9 1 1 










f SAVE 


P0-R5 






91 2 


00 43 1 


01 0537 


001 272 


SV05I 


MOV 


R5.SAVR5 


> SAVE R5 




91 3 


00431 4 


010 4 37 


001270 




MOV 


R4,SAVR4 


I SAVE R4 




1 4 


O04320 


01 0337 


001 266 




MOV 


R3.SAVR3 


1 SAVE R3 




915 


004324 


010237 


001264 




MOV 


R2,SAVR2 


|SAVE R2 




1 6 


004330 


010137 


001262 




MOV 


RUSAVR1 


I SAVE Rl 




917 


004 3 34 


1 0037 


001 260 




MOV 


R0,3AVR0 


iSAVE RO 




91 8 


O04340 


0O0002 






RTI 




J LEAVE. 






















920 










J RESTORE R0-R5 






9 21 


















922 


004342 


01 3700 


001260 


.RES05I 


MOV 


SAVRO, RO 


1 RESTORE 


RO 


923 


004346 


013701 


001262 




MOV 


SAVR1.P1 


| RESTORE 


Rl 


92* 


004352 


013702 


001264 




MOV 


SAVR2.R2 


j RESTORE 


P2 


925 


004356 


013703 


001266 




MOV 


3AVR3,R3 


i RESTORE 


R3 


9?6 


004362 


01 3704 


001270 




MOV 


SAVR4,R4 


j RESTORE 


R4 


927 


004366 


013705 


001272 




MOV 


SAVR5,R5 


1 RESTORE 


R5 


928 


004372 


000002 






RTI 




I LEAVE 
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-D1TC-76 


14J59 


o?9 








930 








931 








"32 








<333 


004374 


104402 


005574 


934 


004400 


010046 




935 


004402 


010146 




936 


004404 


010346 




937 


004406 


010446 




038 


004410 


010546 




939 


004412 


017601 


000012 


940 


004416 


062766 


000002 






; ; J ; J 7 




942 


004430 


112137 


004620 


04 3 


004434 


112137 


004621 


944 


004440 


013137 


004622 


945 


004444 


122737 


000003 


946 


004452 


001003 




947 


004454 


042737 


177400 


948 


004462 


013704 


004622 


949 


004466 


113705 


004620 


050 


004472 


012700 


001416 


°S1 


004476 


010403 




952 


004500 


042703 


177770 


953 


0O4504 


062703 


000060 


954 


004510 


110320 




955 


004512 


000241 




956 


004514 


006004 




957 


004516 


000241 




958 


004520 


006004 




959 


004522 


000241 




960 


004524 


006004 




961 


004526 


005305 




962 


004530 


001362 




963 


004532 


012703 


007320 


964 


004536 


114023 




965 


004540 


105337 


004620 


966 


004544 


001 374 




967 


004546 


105737 


004621 


O68 


004552 


001405 




969 


004554 


112723 


000040 


070 


004560 


1 05 337 


004621 


071 


004564 


001 373 




972 


(194566 


1O5013 




973 


004570 


1 04402 


007320 


074 


4574 


005337 


00451 6 


975 


0O4600 


001313 




076 


004602 


012605 




9 7 7 


004604 


01 2S04 




078 


(M14606 


012603 




979 


0046 10 


012601 




990 


on 461 2 


01 2600 




081 


no 461 4 


000002 




932 


004f 1 6 


000000 




093 


<>O46?0 


OOOOOO 








0O4A2! 
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jCONVERT OCTAL NUMBER TO ASCII AND "UTPUT TO TELEPRINTER 



.CONVRl 


TYPE 


,MCRLF 


.CNVRTj 


MOV 


RO,-(SP) 




MOV 


R1,-(SP) 




MOV 


R3.-CSP) 




MOV 


R4,-CSP) 




MOV 


R5,-(SP) 




MOV 


ei2(SP),Rl 




ADD 


#2,12(SP) 




MflV 


f PI >+,WPDCNT 


1 S I 


MOVB 


(R1)+,CHRCNT 




MOVB 


(R15+, SPACNT 




MOV 


9(R1)+,BIN«BD 




CMPB 


*3,CHRCNT 




BNE 


25 




BIC 


#177400, BINWRD 


2SI 


MOV 


BINWRD, R4 




MOVB 


CHRCNT, R5 




MOV 


#TEMP,RO 


3Si 


MOV 


R4,R3 




BIC 


#177770, R3 




ADD 


#060, R3 




MOVB 


R3, (R0) + 




CLC 






ROR 


R4 




CLC 






ROR 


R4 




CLC 






ROR 


R4 




DEC 


R5 




BNE 


3S 




MOV 


(MDATA, R3 


4*1 


MOVB 


•CR0),CR3)+ 




DECB 


CHRCNT 




BNE 


4$ 




T5TB 


SPACNT 




BEQ 


6$ 


5$1 


.MOVB 


#040, (P3) + 




DECB 


SPACNT 




BNE 


5« 


6S t 


CLPB 


CR3) 




TYPE 


, MDATA 




DEC 


WPDCNT 




BNE 


IS 




MOV 


(SP)+,R5 




MOV 


(SP)+,R4 




mov 


(SP)+, R3 




wnv 


tSP)*,Rl 




MOV 


(SPW.RO 




RTI 





'^pncNT ! 
r»PC>iT: ft 
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935 


004622 


000000 






BINWRD: 



























OQ7 


















QfiS 












j TRAP 


DISPATCH SERVICE 




OOO 












j ARGUMENT OF TRAP IS EXTRACTED 














» AND USED AS OFrfiET TO 
















I TO SELECTED SUBROUTINE 




992 
993 


004624 


011646 






.TRPSRi 


H0V 


CSP), -CSP) 


$ GET PC Or RETURN 


094 


004626 


162716 


000002 






SUE 


*2» CSP) 


i»PC QF TRAP 


995 


004632 


01 7616 


000000 






MOV 


etsp),csp) 


fGET TRP 












TRPOKf 


ASL 


<SP) 




007 




04571 6 


1 77001 






BIC 


1177001, CSP) 


fCLEAR UNWANTED BITS 




' J u *t o ■* ^ 


062716 


001330 






ADD 


# ,TRPTAB, CSP) 


J POiH iCH tU OUoKUUIlNEi AUUKbJu 




r»04fi?»rt 










MOV 


9CSP),C5F3 


1 oueHUuTlHt AOPrdod 


nnn 
ni 


0O 465 4 


coot ^& 








JMP 


»(SP)+ 


jGO TO SUBROUTINE 


1 00/ 












| ERROR 


HANDLER 




1 "!! 


















1 004 


















10 05 


004656 




007362 




■ HLTt 


JSR 


POCKSWP 


T CHECK FOR SOFT SWR 


1 006 




032777 


ft 4 ft ft ft ft 


174312 




BIT 


tSWl2,»SKR 


jBELL ON ERROR? 


1007 


Art AC "1 ft 


no 1 Aft£ 








BEQ 


XBX 


I BR IF NO BELL 


1009 


004672 


105777 


174312 






TSTB 


0TPCS* 


;?TY READY, 


1 009 


004676 


1 00003 








8 PL 


XBX 


jDQN'T WAIT IF TTY NOT READY, 


1010 


004700 


i 1 ZZZZ 


000207 






MOVB 


#207,?TPDBR 


> PUSH A BELL AT THE TTY, 


1011 


004706 


032777 


020000 


7A«* 

174266 




BIT 


*SW13,0SKR 


j DELETE ERROR PRINT OUT? 


1012 


004714 


001 105 








BNE 


HALTS 


jBR IF NO PRINT OUT WANTED, 


1013 


004716 


021637 


001234 






CMP 


(SP),LSTERR 


j WAS THIS ERROR FOUND LAST TIME? 


1014 




O ft 1 A ft A 

yui huh 








BEQ 


IS 


I BR IF YES 


1015 


ft ft A 7 *> A 










MOV 


CSP),LSTERR 


JrieXUKU D&lNif fibre. 


1 n ' -> 


004730 


105037 


n 1 %•>% 






CLRB 


ERRFLG 


y PREPARE HEADER 


1017 




1 ft A 1 ft £ 








SAV05 




* SAVE ALL PROC BEfST stpb r 


' 1 Q 




01 1605 








MOV 


(SP),R5 


• fpT Tub* nv poonc 




0047 40 




ft Aft ft ft *5 
U U U U U * 






SUB 


12, R5 


,rp* snPiOB*s:^ nir toad fat t. 


1 090 


004744 


011504 








MOV 


CR5),R4 


• fiFT Hf.T TK^TDIIOTTflN 

nij i iflomuti iu 1 * 




47 46 


006304 








ASL 


R4 


• MITT T DV TUfl 




004750 


Oft 1504 








ADD 


(R5),R4 


J UUUOJjEi X 1 


1 111 




006304 








ASL 


R4 




! '/-.24 


04 754 




177001 






BIC 


1177001, R4 




1025 


004760 


062704 


037270 






ADD 


l,ERRTAB,R4 


J vjfc i ruin lbr 




004764 


012437 


005 100 






MOV 


CR4)*»ERRM5G 




1097 


o 4 7 7 










MOV 


CR4H.DATAHD 




07« 

] 


00477 4 


011437 


nosi 34 






MOV 


(R4),DATABP 


I GET DATA TABLE 






n n't A a -a 








TSTB 


ERRFLG 


j TYPE HEADREER 


' in 


05004 


01403 








BEQ 


TYPMSG 


I BR IF YES 


i oil 


005 006 




1 JA 






TST 


DATABP 


jDOES DATA TABLE EXIST? 


1032 




001040 








BSE 


TYPDAT 


i BR IF YES, 


1033 


005014 


104402 


005574 




TYPMSG: 


TYPE 


.MCRLF 




1034 


005020 


104402 


005574 






TYPE 


,MCRLF 




1035 


005024 


005737 


001220 






TST 


LOCK 




1036 


O05030 


001402 








BEQ 


1$ 




1037 


005032 


104402 


006044 






TYPE 


, MASTER 




1039 


005036 


104402 


006032 




lit 


TYPE 


,MTST» 




1 039 


005042 


104411 


005232 






CNVRT 


,XTSTN 


;SH0W IT 


1 040 


005046 


104402 


006121 






TYPE 


, MERRPC 


I TYPE PC, 
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Dzn^K.pn 09 


-DSX-76 


14:59 


1 "41 


005052 


104111 


005224 


t 042 


005,056 


104402 


005574 


1 043 


005062 


112737 


177777 


1044 


005070 


005737 


005100 


1045 


005074 


001402 




1046 


005076 


104402 




10 4 7 


005100 


000000 




1 4 a 


005102 






1 049 


0051 02 


005737 


005112 


1 050 


0051 06 


001402 




1051 


005110 


104402 




1052 


0051 12 


000000 




1053 


005114 


005737 


005124 


105 4 


005120 


001402 




1 055 


005122 


104410 




1 056 


005124 


000000 




1 057 


005126 


1 04407 




1 058 


005130 


022737 


003432 


1059 


005136 


001403 




1 060 


005140 


005777 


174036 


1 061 


0051 44 


100005 




1.06 2 


005146 


010046 




1 063 


005150 


016600 


000002 




005154 


000000 




1 065 


005156 


012600 




1066 


005160 


005237 


001232 


1067 


005164 


032777 


000400 


1 068 


0051 72 


001007 




1069 


005174 


032777 


002000 


I 070 


005202 


001407 




1071 


005204 


013737 


0«1216 


1072 


005212 


012706 


001200 


1073 


005216 


000177 


173772 


1074 


005222 


000002 




1 075 


005224 


000001 




1076 


0O5226 


006 


002 


1 077 


005230 


001276 




107 8 


005232 


000001 




1079 


005234 


003 


002 


1080 


005236 


001226 




1 081 








1 08 2 








109 3 








1 084 








1 085 


005240 






1 086 


005240 


012737 


005252 


1 087 


005246 


000000 




1088 


005250 


000777 




J OB9 








1 OOO 








10 91 








1 09? 


05 25 2 






1 0^3 


005252 


01 2737 


005240 


1 094 


005260 


012706 


001 200 


1 9"> 


r, "=,76 4 


0137 1 


0O1404 


1 oo«, 


•!05 ?70 


0050 17 


001 ai6 
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DATAHDt 
TYPDATl 



DATABP: 
RESREGs 
HALTS: 



2$: 

ERTAB0: 



CNVRT 


rERTABO 


»SH0W IT 


TYPE 


, MCRLF 


jGIVE A CR/LF 


MOVB 


§•1, ERRFLG 


)M0 MORE HEADER UNLESS NO DATA TAB 


TST 


ERRMSG 


)IS THERE AN ERROR MESSAGE? 


BEQ 


WRKO.FM 


jBR IF NO, 


TYPE 




jTYPE 







( ERROR MESSAGE 


TST 


DATAHD 


i 

1 DATA HEADER? 


BEQ 


TYPDAT 


;BR IF NO 


TYPE 




J TYPE 







t DATA HEADER 


TST 


DATABP 


: DATA TABLE? 


BEQ 


RESREG 


»RR IF NO. 


CONVRT 




; SHOW 







> DATA TABLE 


RES05 




% RESTORE PROC REGISTERS 


CMP 


t$ENDAD,M42 


jIF ACT-11 AUTOMATIC MODE, HALTiJ 


BEQ 


1$ 




TST 


9SWR 


> HALT ON ERROR? 


BPL 


EXITER 


: BR IF NO HALT ON ERROR 


PUSHRO 




:SAVE RO 


MOV 


2(SP),R0 


;SH0W ERROR PC IN DATA LIGHTS 


HALT 




J HALT 


POPRO 




7 GET RO 


INC 


ERRCNT 


f UPDATE ERROR COUNT 


BIT 


*SW0S,eSWR 


;G0T0 TOP OF TEST? 


BNE 


1$ 


»BR IF YES 


BIT 


tSHlO,0SWR 


jGOTO NEXT TEST? 


BEQ 


2$ 


jBR IF NO 


MOV 


NEXT, RETURN 


jSET FOR NEXT TEST 


MOV 


ISTACK,SP 


; RESET SP 


JMP 


8RETURN 


jGOTO SPECIFIED TEST 


RTI 
1 




» RETURN 


.BYTE 


6,2 




SAVPC 
1 






TSTNO 






> ENTER 


HERE ON POWER 


FAILURE 


MOV 


IPESTART, 24 


>SET UP FOR POWER UP TRAP 



HALT 
BP 



(HALT ON POWER DOWN NORMAL 



) PROCESSOR WILL TRAP HERE iCHEN POKER IS RESTORED 



XOV *,PFAIL,24 (SET UP FOR POWER FAILURE 

VOV fSTACK.SP. IRV.SET THE STACK POINTER 

,".nv dmcsr.R! ; restore bj 

CLR TEMP | READY FOP TI«Mf:H 
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1097 


005274 


005237 


001416 






INC 


TEMP 


IPLUS ONE TO THE TIMERS 


1 098 


005300 


001 375 








BNE 


.-4 


[ BR IF MORE TO GO 


1099 


005302 


104402 


005577 






TYPE 


,MPFAIL 


(TYPE THE MESSAGE 


1 1 00 


005306 


10441 1 


005332 






CNVRT 


t PFTAB 


[TELL WHAT TEST TO RETURN TO, 


1101 


00531 2 


105037 


001 325 






CLPB 


EPRFLG 


j START CLEAN 


1102 


005316 


005037 


001234 






CLP 


LSTERP 




1103 


005322 


00501 1 








CLR 


(Rl) 


(CLEAR MAINT BITS 


1104 


005324 


104412 








MSTCLR 


j START CLEAN UP OF DEVICE 


1 1 OS 


005326 


000177 


173662 






JMP 


•RETURN 


(START DOING THAT TEST AGAIN, 


1 1 06 


005332 


000001 






PFTABl 


1 






1 1 07 


005334 


003 


002 




.BYTE 


3.2 






110? 


005336 


001226 








TSTNO 






1109 


















1110 


005340 








.DELAY! 








1111 


005340 


012777 


000020 


174044 




MOV 


»20i»DMPO4 




1112 


005346 


104414 








ROMCLK 




( NEXT WORD IS INSTRUCTION, ROMCLK 


1 1 1 J 


005350 


121111 








121111 




(POKE CLOCK DELAY BIT 


1114 


005352 








1SI 








1115 


005352 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK 


1116 


005 354 


121224 








121224 




I P0PT4„I8US»1 1 


1117 


005356 


032777 


000020 


174026 




BIT 


tBIT4,0DMPO4 


(IS CLOCK BIT SET? 


1119 


005364 


001772 








BEQ 


1* 


(BR IF NO 


1119 


005366 


000002 








RTI 




1120 


















1121 


005370 








.MSTCLRl 






1 1 2? 


005370 


152777 


000100 


174010 




BISB 


#BIT6» eDMCSRH 


(SET MASTEP CLEAR 


112 3 


005376 


142777 


000300 


174002 




BICB 


4BIT6 1BIT7 , 9DMCSRH [CLEAR MASTER CLEAR AND RUN 


1124 
1 1 25 


005404 


000002 








RTI 




(RETURN 


1 1 26 


005406 








.POMCLKl 






1 1 27 


005406 


152777 


000002 


173772 




BISB 


#BIT1,?DMCSPH 


| SET ROMI 


1 1 20 


00541 4 


01 3677 


173774 






MOV 


»CSP)+,PDMP06 


(LOAD INSTRUCTION IN SEL6 


1 1 29 


005420 


062746 


000002 






ADD 


l2#-t3P) 


(ADJUST STACK 


1 1 30 


005424 


032777 


000100 


173550 




BIT 


ISW06,*SHR 


(HALT IF SW06 =1 


1131 


005432 


001401 








BEQ 


1* 


(BR IF SW06 cO 


1 1 32 


015434 


000000 








HALT 




(HALT BEFORE CLOCKING INSTRUCTION 


1133 


005436 


152777 


000003 


173742 


IS! 


BISB 


lBI?UBITO,f»DMCSRH [CLOCK INSTRUCTION 


1134 


005444 


1 42777 


000007 


173734 




BICB 


♦BIT21BIT11BIT0 


9DMCSRH f CLEAR ROMO, ROMI, STEP 


1135 


OO5452 


000002 








RTI 






1 1 36 


















1137 


005454 








.DATACLK! 






1 ' 3S 


05 45 4 


01 3637 


001416 






MOV 


»(SPD+,TEMP 


I PUT TICK COUNT IN TEMP 


1139 


005460 


062746 


000002 






ADD 


»2,-<SP) 


(ADJUST STACK 


1 140 


005464 


152777 


000020 


173714 


IS! 


BISB 


»BIT4, *DKCSPH 


[SET STEP LU 


1H1 


005472 


027777 


173706 


173704 




CMP 


•DMCSR,*OMCSP 


( WASTE TIME 


1142 


005500 


142777 


000020 


173700 




BICB 


»BIT4,»DMCSRH 


[CLEAR STEP LU 


114 3 


005506 


005337 


001416 






DEC 


TEMP 


[DEC TICK COUNT 


114 4 


005512 


001364 








BNE 


It 


[BR IF NOT DONE 


1 1 45 


00551 4 


000002 








RTI 




(RETURN 


1)46 
1 1 47 










SSI 


.BLKW 1 






11 IB 


005520 








.TIMER! 








1 1 49 


005520 


013637 


001416 






MOV 


l»C3P) + ,TEMP 


j MOVE COUNT TO TE"P 


1 150 


005524 


062746 


000002 






ADD 


•2,-<SP) 


( ADJUST STACK 


1151 


005530 








1S1 








1152 


005530 


104414 








ROMCLK 




[NEXT WORD IS INSTRUCTION, ROMCLK 
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1153 


O05512 


021364 








021364 


[ P0PT4™ IBUS* REGU 


1154 


005534 


032777 


000002 


173650 




BIT 


•2,eDMP04 (IS PGM CLOCK BIT CLEAR? 


1 155 


005542 


001772 








BEQ 


U (BR IF YES 


1 156 


005544 








2SI 






1 157 


005544 


104414 








ROMCLK 


1 NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


1 15B 


005546 


021364 








021364 


[P0RT4„IBUS» REG11 


1 1*9 


005550 


032777 


000002 


173634 




BIT 


I2,»DMP04 [IS PGM CLOCK BIT SET? 


1160 


005556 


001372 








BNE 


2S | BR IF YES 


1161 


005560 


005337 


001416 






DEC 


TEMP [DEC COUNT 


1162 


005564 


001361 








BNE 


It [BR IF NOT DONE 


1 163 


005566 


000002 








RTI 


[RETURN 


1164 
















1 l 6S 


005570 


020040 


000077 




MOM| 


.ASCIZ 


/ ?/ 


(2) 


005574 


005015 


000 








?> 


(?) 


O05577 


377 


053520 


020122 


WPFA*IL( 


Iasciz 


<J77>/PWR FAILED, RESTART AT TEST / 


(?) 


O05635 


377 


047105 


020104 


MEPASSl 


.ASCIZ 


<377>/END PASS DZDMH / 


(?) 


005657 


.377 


000122 




MR| 


.ASCIZ 


<377>/R/ 


(?) 


005662 


047377 


020117 


042504 


MERR2I 


.ASCIZ 


<377>/NO DEVICES PRESENT, / 


( ?! 


105707 


377 


047U1 


052523 


MERR3 | 


.ASCIZ 


<377>/INSUFFICIENT DATA!/ 


(2) 


005733 


377 


042524 


052123 


MTSTPCl 


. ASCIZ 


<377>/TEST PC-/ 


(2) 


005745 


377 


047514 


045503 


MLQCKl 


.ASCIZ 


<377>/LOCK ON SELECTED TEST/ 


(2) 


005774 


051503 


035122 


000040 


MCSRXl 


.ASCIZ 


/CSRl / 


(21 


006002 


042526 


035103 


000040 


MVECXl 


. ASCIZ 


/VECJ / 


C2) 


OO6010 


040520 


051523 


051505 


MPASSXl 


. ASCIZ 


/PASSES t / 


(21 


"06021 


105 


051122 


051117 


MERRXi 


.ASCIZ 


/ERRORS 1 / 


(?) 


006032 


042524 


052123 


047040 


MTSTN | 


.ASCIZ 


/TEST NOl / 


(?) 


006044 


000052 






MASTER | 


.ASCIZ 


/•/ 


(?) 


006046 


051777 


052105 


051440 


MNEWl 


.ASCIZ 


<377>/SET SWITCH REG TO DMCll'S DESIRED ACTIVE,/ 


(2) 


006121 


120 


035103 


000040 


MERRPCt 


.ASCIZ 


/PC I / 


(2) 


0O6126 


020212 


020040 


020040 


XHEADt 


a ASCII 


<212>/ MAP OF DMC11 STATUS/ 


(7) 


016165 


377 


020040 


020040 




.ASCII 




(?) 


"06224 


020212 


050040 


020103 




.ASCII 


<212>/ PC C5P STAT1 STAT2 STAT3/ 


(2) 


016276 


026777 


026455 


026455 




.ASCIZ 


<377>/«- — ...... ....../ 


(?) 


006352 


044377 


053517 


046440 


NUMl 


.ASCIZ 


<377>/HOW MANY DMCll'S TO BE TESTED? / 


(?) 


01641 2 


041777 


051123 


040440 


CSRl 


.ASCIZ 


<377>/CSR ADDRESS?/ 


(?) 


016430 


053377 


041505 


047524 


vec: 


, ASCIZ 


<377>/VECT0R ADDRESS?/ 


(2) 


106451 


377 


051102 


050040 


PRIOl 


.ASCIZ 


<377>/BR PRIORITY LEVEL? (4,5,6.7)?/ 


(?) 


00651 


044777 


020106 


046504 


CPAMl 


. ASCIZ 


<377>/IF DMC HAS CRAM (M8204) TYPE »Y", IF CROM CM8200J TYPE «N« 


(?) 


006606 


053777 


044510 


044103 


MODUl 


.ASCIZ 


<377>/WHICH LINE UNIT? IF NONE TYPE "N", IF M8201 TYPE "1", IF M 


(?) 


006720 


051777 


044527 


041524 


LINEl 


, ASCIZ 


<377>/SWITCH PAC#1 (DDCMP LINE «)?/ 


(?) 


006756 


051777 


044527 


041524 


BMj 


.ASCIZ 


<377>/SWITCH PAC«2 (BM873 BOOT ADD)?/ 


(2) 


007016 


044777 


020123 


044124 


CONNl 


, ASCIZ 


<377>/IS THE LOOP BACK CONNECTOR ON? / 


(?) 


007056 


047)77 


0201 17 


042504 


NOACTj 


.ASCIZ 


<377>/NO DEVICES APE SELECTED/ 


(?) 


0071 07 


377 


051412 


051127 


SWMESl 


.ASCIZ 


<377><12>/SWR» / 


( ? ) 


107117 


! 16 


053505 


020077 


SWMES1 I 


.ASCIZ 


/NEW? / 


(2) 


007125 


377 


042377 


041515 


CONERPJ 


, ASCIZ 


<377><377>/DMCl 1 CONFIGURATION ERROR PC i / 


(?) 


0171 67 


377 


0541 05 


042520 


CNEPRl 


.ASCIZ 


077>/EXPECTED FOUND/ 


(?) 


017210 


024040 


046504 


024503 


DMCM| 


.ASCIZ 


/ (DMC) / 


(21 


017220 


0?4<)41 


04651 3 


024503 


KMC*! 


.ASCIZ 


/ (KMC) / 


(?) 










.EVEN 






( ? 1 


017 230 


100115 






KST»TQ[ 


5 




I 1 ">6 


007232 


106 


10 3 






.BYTE 


6.3 


1167 


Ofl7?34 


o n 1246 








TF«P1 




1 1 *a 


007236 


006 


101 








6,3 


lib''' 


117741 


11 1 750 








TKVV'2 






«0T?4? 


*fi6 










6,3 
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171 


007244 


001252 




172 


007246 


006 


003 


171 


007250 


001254 




174 


007752 


006 


002 


17? 


007254 


001256 












177 








178 








179 








180 


007256 


000000 




181 




007320 




192 


007320 


000000 




183 




007362 




18« 

185 








186 








187 








188 








189 








190 


007362 


022737 


000176 


191 


007370 


001071 




192 


007372 


022777 


000007 


193 


007400 


001404 




194 


007402 


022777 


000207 


195 


007410 


001061 




196 


007412 


010246 




197 


007414 


010346 




198 


007416 


010446 




199 


007420 


012737 


177777 


200 


007426 


005002 




201 


007430 


012704 


177777 


202 


007434 


104402 


007107 


70s 


007440 


1G441 i 




204 


017442 


007612 




205 


007444 


104402 


007117 


206 


007450 


004737 


007560 


207 


0O7454 


022703 


000015 


20R 


0O7460 


001424 




209 


007462 


022703 


000012 


210 


007466 


001416 




211 


007470 


022703 


000025 


217 


007474 


001754 




213 


007476 


022703 


000007 


21 4 


OO^SO? 


001762 




215 


007504 


005004 




216 


007506 


042703 


177770 


717 


007512 


006302 




218 


007514 


006302 




219 


007516 


006302 




220 


007520 


050302 




271 


007522 


000752 




222 


007524 


012766 


002002 


223 


007532 


O057Q4 




224 


007534 


001002 




225 


007536 


010277 


171440 


225 


007542 


005037 


007556 



TEMP3 
.BYTE 
TENP4 
.BYTE 

TEHP5 



j BUFFERS TOR INPUT-OUTPUT 



INBUFj u 
.=.+40 
NDATAl 
.=.+40 



j ROUTINE USED TO CHANGE SOFTWARE SWITCH 
i REGISTER USING THE CONSOLE TERMINAL 



CKSHRl 



CK3WR3) 
CKSUR4I 



46: 

5S! 



CMP 


tSHREGrSWR 


|IS THE SOFT SWR BEING USED? 


BNE 


CKSWR5 


t BR IF NO 


CMP 


#7,9TKDBR 


j WAS CTRL G TYPED? C7 BIT ASCII) 


BEQ 


If 


1 BR IF YES 


CMP 


»207,*TKDBR 


; WAS CTRL G TYPED? (8 BIT ASCII) 


BNE 


CKSHR5 


jBR IF NO 


MOV 


R2#-CSP) 


j STORE P2 


MOV 


R3,-CSP) 


1 STORE R3 


MOV 


R4.-(SP) 


j STORE R4 


MOV 


t-l.SNFLG 


(SET SOFT TYPE OUT FLAG 


CLR 


R2 


(CLEAR NEW SWR CONTENTS 


MOV 


*-i,R4 


(SET FLAG TO ALL ONES 


TYPE 


,SWHES 


f TYPE »SWRs " 


CSV8T 




»ftPE OUT PRESENT CONTENTS 


SOFTSW 




;0F SOFT SWITCH REGISTER 


TYPE 


,SWMES1 


» TYPE "NEW? » 


JSR 


PC , INCHAR 


}GET RESPONSE 


CMP 


#15, R3 


jWAS IT A CR? 


BEQ 


5$ 


jBR IF YES 


CMP 


112, R3 


}WAS IT A LF? 


BEQ 


4$ 


J BR IF YES 


CMP 


125, R3 


JWAS IT CTRL U? 


BEQ 


CKSHRl 


I BR IF YES( START OVER) 


CMP 


#7,P3 


f IF CNTL G GET NEXT CHAR 


BEO 


CKSBR4 




CLR 


R4 


I IT MUST BE A DIGIT SO CLR FLAG 


BIC 


»177770,R3 


> ONLY 0-7 ARE LEGAL SO MASK OFF BITS 


ASL 


R2 


jSHIFT R2 3 TIMES 


ASL 


R2 




ASL 


R2 




BIS 


R3,R2 


j ADD LAST DIGIT 


BP 


CKSHR4 


(GET NEXT CHARACTER 


MOV 


#,START,6(SP) 


»LF WAS TYPED SO GO TO START 


TST 


R4 


IIS FLAG CLEAR? 


BNE 


68 


»IF NOT DON'T CHANGE SOFT SWR 


MOV 


R2,0SWR 


jIF YES THEN WRITE NEW CONTENTS TO SOFT 


CLR 


SHFLG 


I CLEAR TYPEOUT FLAG 
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ES (TYPEOUT, ERROR 


1227 


007546 


012604 






MOV 


(SP)+,R4 


122" 


007550 


012603 






MOV 


CSP)+,R3 


1229 


007552 


012602 






MOV 


CSP)+,R2 


1230 


007554 


0O0207 




CKSWR5: 


RTS 


PC 


123! 














12 32 


007556 


000000 




SWFLGl 







1233 














1214 


007560 


105777 


171420 


INCHAR J 


TSTB 


9TKCSR 


1255 


007564 


100375 






BPL 


.-4 


1236 


007566 


017703 


171414 




MOV 


8TKDBR, R3 


12 3"" 


007572 


105777 


171412 




TSTB 


?TPCSR 


1235 


007576 


100375 






BPL 


• •4 


1 239 


007600 


010377 


171406 




MOV 


R3,«TPDBR 


1240 


007604 


042703 


000200 




BIC 


#BIT7,R3 


1241 


007610 


000207 






RTS 


PC 


1247 














1243 


007612 


000001 




SOFTSWj 


1 




1244 


007614 


006 


002 




.BYTE 


6,2 


124S 


007616 


000176 






S"PEG 





S, ETC) 

1 RESTORE R4 
j RESTORE R3 
; RESTORE R2 
f RETURN 
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fl&GEt OC-48 



1246 
















1247 










S 






124P 










fPOUTINE USED 10 "CYCLE" 


THROUGH UP TO 16 DMCU'S 


1240 










I THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 


125 










i AND RUNS THE SPECIFIED 


DMCll'S, THIS ROUTINE *HUST* 


J 1 










I BE RUN 


FIRST BEFORE ENTERING THE DIAGNOSTIC FOP THE 


1252 










(SETUP 


NECESSARY. 




1253 










1 






1254 
















1255 


007620 


005737 


001 306 




CYCLEl TST 


DMACTV 


J ARE ANY DMCll'S TO BE TESTED? 


1256 


007624 


001004 






BNE 


It 


| BR IF OK, 


1257 


007626 


104402 


007056 




TYPE 


,NOACT 


(NO DMCll'S SELECTED! 1 


125<? 


007632 


000000 






HALT 




»STOP THE SHOW, 


125" 


00">634 


000776 






BR 


,•2 


(DISQUALIFY CONT, SW, 


1260 


0076.36 


000241 






1SJ CLC 




(Clear proc. carry bit. 


1261 


007640 


006137 


001316 




ROL 


RUN 


( UPDATE POINTER 


1762 


007644 


005537 


001316 




ADC 


RUN 


(CATCH CARRY FROM RUN 


1263 


007650 


062737 


000004 


001322 


ADD 


14, MILK 


(UPDATE POINTER 


1264 


007656 


062737 


000010 


001320 


ADD 


110, CREAM 


t UPDATE ADDRESS POINTER, 


1265 


007664 


022737 


001700 


001320 


CMP 


IDM.MAP+2 00, CREAM 


1266 


007672 


001006 






BNE 


28 


j KEEP GOINGf NOT ALL TESTED FOR, 


1267 


007674 


01 2737 


001500 


001320 


MOV 


tDH, MAP, CREAM 


, RESET ADDRESS POINTER , 


126S 


007702 


012737 


001702 


001322 


MOV 


iCNT. MAP, MILK 


J RESET PASS COUNT POINTER 


1269 


007710 


033737 


001316 


001306 


2S» BIT 


RUN, DM ACT V 


IIS THIS ONE ACTIVE? 


1270 


007716 


001747 






BEQ 


1$ 


(BR IF NO 


1271 


007720 


013700 


001320 




MOV 


CREAM, RO 


(GET ADDRESS POINTER 


1272 


007774 


013702 


001322 




MOV 


MILK,R2 


I GET PASS COUNT POINTER 


1273 


007730 


012037 


001404 




MOV 


(R0)+, DMCSR 


(LOAD SYSTEM CTRL, PEG 


1274 


007734 


01 1037 


001374 




MOV 


(RO), DMRVEC 


J LOAD VECTOR 


1275 


007740 


042737 


177000 


001374 


BIC 


#177000, DMRVEC 


(CLEAR UNWANTED BITS 


1275 


007746 


012037 


001366 




MOV 


(R0H.STAT1 


(LOAD STAT1 


1277 


007752 


012037 


001370 




MOV 


(R0)+,STAT2 


(LOAD STAT2 


127» 


007756 


01203"' 


001372 




MOV 


(R0)+,STAT3 


(LOAD STAT3 


127Q 


007762 


012237 


001230 




MOV 


(R2)+,PASCNT 


) LOAD PASS COUNT 


12bo 


007766 


012237 


001232 




MOV 


(R2)+,ERRCNT 


(LOAD ERROR COUNT 


l??i 


007772 


012700 


000002 




MOV 


*2,R0 


1 SAVE CORE THIS WAY J 


1282 


007776 


01 3737 


001404 


001406 


MOV 


DMCSR, DMCSRH 




12* 3 


01 0004 


005237 


001406 




INC 


DMCSRH 




12S4 


01O010 


013737 


001406 


001410 


MOV 


DMCSRH, DMCTL 




1295 


O1O016 


005237 


001410 




INC 


DMCTL 




12S6 


01002? 


013737 


001410 


001412 


MOV 


DMCTL, DMP04 




12S7 


010O30 


060037 


001412 




ADD 


R0/DMPO4 




173S 


010034 


013737 


001412 


001414 


MOV 


DMP04,DMP06 




1?S Q 


01 0042 


0S0O37 


001414 




ADD 


R0,DMP06 




1290 
















1291 


010046 


01 3737 


001374 


001376 


MOV 


DMRVEC, DMRLVL 


jPTY LVL 


129? 


010054 


060037 


001376 




ADD 


ROiDMRLVL 


J 


1293 


010060 


01 3737 


001376 


001400 


MOV 


DMRLVL, DMTVEC 


JTX VEC 


1294 


01O066 


060037 


001400 




ADD 


RO, DMTVEC 


J 


1205 


010072 


013737 


001400 


001402 


MOV 


DMTVEC, DMTLVL 


(TX LVL 


1205 


010100 


060O37 


001 402 




ADD 


RO,DMTLVL 




1297 
120° 


010104 


032737 


000002 


001236 


BIT 


15*01, STFTSW 


)IS TEST NO. SELECTED 


IJQO 


010112 


001450 






BEQ 


7$ 


J BR IF NO 


1 300 


010114 








4«l 






1301 


010114 


005737 


000042 




TST 


9*42 


) RUNNING IN AUTO MODE? 
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DZDWH.PII OQ 


-DEC-76 


14:59 


1 307 


01 01 20 


001045 




1303 


01 012? 


104402 


005574 


1 304 


01 01 26 


104403 




1 305 


010130 


006032 




1 30* 


0101 37 


104405 




1307 


01 01 34 


000001 




130 = 


010136 


001O0O 




1 JOO 


01014 


001226 




1310 


0101 42 


000 




1311 


010143 


001 




131? 


010144 


012700 


015766 


1313 


010150 


022710 




1314 


010152 


012737 




1315 


01 01 64 


001020 




1316 


010156 


023760 


001226 


1317 


010164 


00101 4 




111 s 


010166 


022760 


001226 


1319 


010174 


001010 




1320 


010176 


010037 


001214 


1 321 


010202 


104402 


005657 


132? 


010206 


042737 


000002 


1323 


010214 


000412 




1324 


OtO?1 6 


0O5720 




132* 


010220 


020027 


031442 


1326 


010224 


001351 




1327 


010226 


104402 


005570 


13?" 


010732 


000730 




132° 








1330 


010234 


012737 


015766 


1331 


010242 


013701 


001 404 


1332 


010246 


000177 


170742 


13 33 








1334 








1 335 








1336 








1 337 








133« 








1339 








1340 








1341 








134? 








134 3 


01 0257 






1344 


01 0252 


000005 




1345 


O10254 


012702 


001500 


1 34S 


010260 


005022 




1347 


010262 


022702 


001700 


1 34a 


010266 


001 374 




1340 


01 0270 


005037 


001310 


1350 


010274 


01270? 


001500 


135! 


O1O300 


005037 


OOl 306 


1 352 


01 0304 


032737 


01 


135? 


010 312 


onmo? 




135< 


010314 


0001 17 


010744 


1 3* c 


010320 


12 7 3 7 


O10 01 


1 356 


01 r>i?«, 


1 < ;4 -l"3 
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BNE 


7$ 


f BR IF YES 




TYPE 


,MCRLF 






INSTR 




1 GET TEST NO, 




MT5TN 








PARAM 








1 

1000 








TSTNO 






.BYTE 









.BYTE 


1 








MOV 


•TST1,P0 




5$r 


CMP 


(PC)+,(R0) 


(CMP FIRST WORD TO 12737 




MOV 


(PC)+,»(PC)+ 






BNE 


6$ 


J BR IF NOT SAME 




CMP 


ISTKC.iCrC: 


*PCES TST"? ys t<* M t 




BNE 


68 


) BR IF NO 




CMP 


•TSTNO, 4CR0) 


» IS LAST WORD OK? 




BNE 


6$ 


J BR IF NO 




MOV 


RO, RETURN 


I IT IS A LEGAL TEST SO DO 




TYPE 


, MR 






BIC 


•SW01, STRTSW 






BR 


88 




6si 


TST 


CPQ) + 


(POP RO 




CMP 


R0,#TLAST+10 


I AT END YET? 




BNE 


58 


J BP IF NO 




TYPE 


, MQM 


) YES ILLEGAL TEST NO. 




BR 


4S 


(TRY AGAIN 


7SI 


MOV 


tTSTl, RETURN 


j PREPARE RETURN ADDRESS 


8 S J 


MOV 


DMCSR, Rl 


| Rl » BASE DMCll ADDRESS 




JMp 


^RETURN 


(GO START TESTING, 



ROUTINE USED TO "AUTO SIZE" THE DMCll 
CSP AND VECTOR, 

NOTEt THE CSR MAY BE ANY WHERE IN THE FLOATING 
ADDRESS RANGE C 1 60OOO 1 1 64000 ) 
AND THE VECTOR NAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300(770) 



AUTO.SIZEl 



RESFT 




(INSURE A BUS INIT, 


CSRMAPJ MOV 


•DM, MAP, R2 


(LOAD MAP POINTER, 


18: CLR 


CR2)t 


) ZERO ENTIRE "AP 


CMP 


#DM.END,R2 


(ALL DONE? 


BNE 


IS 


(BP IF NO 


CLR 


DMNUM 


(SET OCTAL NUMBER DMCll'S TO 


MOV 


»DM,MAP,P2 


(R2 POINTS TO DMC MAP 


C! P 


D«ACTV 


(CLEAR ACTIVE 


PIT 


• SWOO, STPTS'. 


(OUESTI0NS7 


BNE 


, + 6 


•PR IF YES 


J«P 


7S 


;IF NO SKIP QUESTIONS 


uny 


»1,TE«P5 


(START *ITM 1 


I " S T P 
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1358 


010332 


104405 






PARAM 






1350 


010334 


000001 






1 






1360 


010336 


000020 






16, 






1361 


010340 


001252 






TEMP 3 






1362 


010342 


000 






.BYTE 







1363 


010343 


ooi 






.BYTE 


i 




1364 


010344 


013737 


001252 001310 




MOV 


TEMP3.DMNUM 


IDMNUM a HOW MANY 


1365 


010352 


104402 


005574 


12$! 


TYPE 


, MCRLF 




1366 


010356 


104410 






COSYRT 




1 TYPE WHICH DMC IS BEING DONE 


1367 


010360 


0U450 






WHICH 




|TEMP5 IS SJHICH CMC 


1368 


010362 


005237 


001256 




INC 


TEMP5 




1369 


010366 


104403 






INSTR 






1370 


010370 


006412 






CSR 






1371 


010372 


104405 






PARAM 






1372 


010374 


160000 






160000 






1373 


010376 


164000 






164000 






1374 


010400 


001254 






TEHP4 






1375 


010402 


000 






.BYTE 







1376 


010403 


001 






.BYTE 


1 




1377 


010404 


013722 


001254 




MOV 


TEMP4,(R2)+ 


j STORE CSR IN MAP 


1378 


010410 


104403 






INSTR 






1 379 


010412 


006430 






VEC 






1 3150 


01041 4 


104405 






PARAM 






1381 


010416 


000000 













1391 


010420 


O00776 






776 






1 3« 3 


010422 


001254 






TEMP4 






139 4 


01 0424 


000 






.BYTE 







1385 


01 0425 


001 






.BYTE 


1 




1 386 


010426 


01 3712 


001254 




MOV 


TEMP4, (R2) 


j STORE VECTOR IN MAP 


1387 


010432 


104402 




10$ I 


TYPE 






1 383 


010434 


006451 






PRIO 




j ASK WHAT BR LEVEL 


138° 


010436 


004737 


011734 




JSP 


PCINTTY 


J GET RESPONSE 


1 390 


010442 


022703 


000024 




CMP 


♦24, R3 


J 


1301 


010446 


101014 






BHI 


50* 


jBR IF LESS THAN 4 


1 392 


01 0450 


022703 


000027 




CMP 


#27, R3 


t 


1303 


010454 


103 51 1 






BLO 


50* 


t BR IF GREATER THAN 7 


1394 


010456 


012704 


000011 




MOV 


#11,R4 


|R4 a NUMBER OF SHIFTS 


1395 


010462 


006303 






ASL 


R3 


t SHIFT R3 LEFT 


1 396 


010464 


005304 






DEC 


R4 


jDEC SHIFT COUNT 


1 397 


010466 


001375 






BNE 


,-4 


J BR IF NOT DONE 


1 398 


010470 


0*2703 


170777 




BIC 


1170777, R3 


iBIC UNWANTED BITS 


1390 


010474 


050312 






BIS 


R3.CR2) 


jPUT BR LEVEL IN STATUS MAP 


1400 


010476 


000403 






BR 


8$ 


(CONTINUE 


1401 


010500 


1 04402 




;o»i 


TYPE 






140? 


010502 


005570 






MQM 




JRESPONSE IS OUT OF LIMITS 


1 40? 


010504 


000752 






BR 


10* 


jTRY AGAIN 


1 404 


010506 


104402 




SSI 


TYPE 






1405 


010510 


006510 






CRAM 




JDOES DMC HAVE CRAM? 


1406 


010512 


004737 


011734 




JSP 


PC, IHTTY 


t GET REPLY 


1407 


010516 


022703 


000131 




CMP 


#131, R3 




1408 


010522 


001406 






BEQ 


9$ 


>YES 


1 109 


010524 


022703 


000116 




CMP 


#116, P3 


>N0 


* 4 1 


01 0530 


001405 






BEQ 


16* 


>NOT A Y OR N 


1411 


010532 


104402 






TYPE 






1412 


010534 


005570 






MQM 




; TYPE "?" 


1413 


010536 


0O0763 






BP 


8* 


;ASK AGAIN 
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1. 4 1 4 


010540 


052712 


100000 


9St 


BIS 


*BIT15,CR2) 


I SET BIT 15 IF CRAM 


1415 


010544 


104402 




16SI 


TYPE 






1416 


010546 


006606 






MODU 




JASK WHICH LINE UNIT 


1417 


01 0550 


004737 


011734 




JSR 


PCINTTY 


> GET REPLY 


1418 


010554 


022703 


000021 




CMP 


#21, P3 


>"1" 


1 4]Q 


010560 


001417 






BEQ 


30* 






010562 




000022 




CMP 


•22, R3 


l"2« 


1421 


010566 


001 412 






BEQ 


31* 




1422 


010570 


022703 


000116 




CMP 


1116, R3 


|"N« 


1423 


010574 


001403 






BEQ 


32* 




1424 


01 0576 


104402 






TYPE 






1425 


010600 


005570 






MOM 




jIF NOT A 1,2 OR N TYPE "?" 


1 426 


010602 


000760 






BR 


16* 


) TRY AGIAN 


1427 


010604 


052722 


oiooon 


328: 


BIS 


*BIT12, CR2) + 


JSET BIT 12 IN STAT2 IF NO LU 


1 i?B 


010610 


022222 






CMP 


(R2)+f CR2)+ 


»POP OVER STAT2 AND STAT3 


1429 


010612 


000447 






BR 


33* 




1430 


010614 


052712 


020000 


3is: 


BIS 


#BIT13,(R2) 


jSET BIT 13 IN STAT2 IF M8202 


1431 


01 0620 


104402 




30$: 


TYPE 






143? 


01062 2 


007016 






CONN 




jASK IF LOOP-BACK IS ON 


1 431 


010624 


004737 


01 1734 




JSR 


PCINTTY 


jGET REPLY 


14?4 


01 0630 


022703 


000131 




CMP 


»131,R3 




1435 


010634 


001406 






BEQ 


17* 




1436 


0106 36 


022703 


000116 




CMP 


#116, p3 


|K 


1437 


01 0642 


001406 






BEQ 


IB* 




1430 


010644 


104402 






TYPE 






1439 


010646 


005570 






MQM 




>IF NOT YORK TYPE »?" 


1440 


010650 


000763 






BR 


30* 


) TRY AGAIN 


1441 


01 0652 


052722 


040000 


17*! 


BIS 


♦BIT14, (R2)+ 


J TURNAROUND IS CONNECTED 


H42 


010656 


000402 






BR 


19* 




1443 


01 O660 


042722 


040000 


18S! 


BIC 


#BIT14,CR2)+ 


(NO TURNAROUND 


1444 


"10664 






19*! 








1445 


010664 


104403 






INSTR 






1 146 


010666 


006720 






LINE 






1447 


010670 


104405 






PARAM 






1448 


010672 


000000 













1 449 


01 0674 


000377 






377 






1450 


01 0676 


001254 






TEMP4 






1451 


01 0700 


ono 






. BYTE 







1 4S2 


010701 


001 






.BYTE 


1 




1453 


010702 


113722 


001254 




MOVB 


TEHP4, (R2)+ 


( STORE SWITCH PAC IN MAP 


1 454 


010706 


104403 






INSTR 






1 455 


010710 


006756 






BM 






1456 


010712 


1 04405 






PARAM 






1 457 


010714 


000000 













1 458 


010716 


000377 






377 






1459 


010720 


00] 254 






TEMP4 






1 460 


01 0722 


1.1 00 






.BYTE 







1461 


01 0723 


001 






.BYTE 


1 




1 462 


010724 


1 13722 


001254 




MOVB 


TEHP4, (R2)+ 


J STORE SWITCH PAC IN MAP 


1 "63 


010730 


0O5722 






TST 


CR2) + 


jPOP OVER STAT3 


1 454 


010732 


005337 


001252 


33S : 


DEC 


TEMP3 


IDEC DMC COUNT 


1 4 55 


0107 36 


001205 






BNE 


12S 


;HR IF "ORE TO 00 


1465 


01 07 40 


000137 


Oil 350 




J"P 


13S 


iCONTINDE 


1 »67 


01 0744 


01 270t 


1 60000 


7S ! 


unv 


#160000, R1 


rSET FOR FIRST ADDRESS TO BE TESTED 


1468 


010750 


01 2737 


otl447 0O0004 




MOV 


»6S.a«4 


iSFT FOR N0N-F.X1STANT DEVICE TIME OUT 


1 »n9 


("10756 


005011 




?s: 


CI.R 


CP1 ) 


; CLEAR SELO 
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1470 


01 0760 


005711 








TST 


(Rl) 


(IF DMCil DMCSR S/B 


1471 


010762 


001162 








BNE 


3* 


IF NO DEV | TRAP TO 4, IF NO BIT 8 THEN NO DMC1 


1472 


010764 


005061 


000006 






CLR 


6CR1) 


CLEAR SEL6 


1473 


010770 


005761 


000006 






TST 


6{R1) 


(IF DMC11 WEN DMRIC S/B «0I 


1474 


01 0774 


001155 








BNE 


31 


(BR IF NOT DMCU 


1475 


010776 


012711 


002000 






MOV 


tBIT10,(Pl) 


(SET ROMO 


1476 


011002 


005061 


000004 






CLR 


4CR1) 


(CLEAR SEL4 


1477 


01 1006 


012761 


125252 


000006 




MOV 


#125252, 6(P1) 


I WRITE THIS TO SEL6 


1478 


011014 


052711 


020000 






BIS 


#BIT13,(R1) 


WRITE ITI 


1479 


011020 


022761 


125252 


000004 




CMP 


#125252, 4CR1) 


WAS IT WRITTEN? 


1480 


011026 


001004 








BMC 


21$ 


(If NO IT IS NOT CRAM 


1481 


01 1030 


052762 


100000 


000002 




BIS 


»BIT1S,2(R2) 


(SET BI.T15 IF CRAM 


1482 


011036 


000421 








BR 


22* 




14S3 


ot 1040 


0127J I 


001000 




21(1 


MOV 


*BIT9,(R1) 


(SET ROM I 


1484 


01 1044 


012761 


100400 


000006 




NOV 


#100400, 6CR1) 


(PUT INSTRUCTION IN SEL6 


14«5 


01 1052 


012711 


001400 






MOV 


♦BIT9JBIT8, CR1) 


(CLOCK INSTRUCTION (MICRO PROC PC TO 0) 


14R6 


011056 


012711 


002000 






HOV 


IBITtOf (Rl) 


(SET ROMO 


1487 


01 1062 


022761 


063220 


000006 




CMP 


#63220, 6CR1) 


(IS IT CROM 


1498 


011070 


001404 








BEQ 


22* 


(BR IF YES 


1489 


011072 


022761 


177777 


000006 




CMP 


#-l,6(Rl) 


(IF « "1 IT HAS NO CROM 


1490 


011100 


001113 








BNE 


31 


(BR IF NOT DMC11 


1491 










1 AT 


THIS POINT 


IT IS ASSUMED THAT Rl HOLDS A DMCU CSR ADDRESS. 


1492 


011102 


01 0122 






22SI 


MOV 


Ri»(R2>+ 


(STORE CSR IN CORE TABLE, 


14Q3 


01 1 104 


012711 


001000 




1511 


MOV 


#BIT9,(RI) 


(CLEAR LINE UNIT LOOP 


1 4P4 


01 1 110 


005061 


000004 






CLR 


4(R1) 


(CLEAR P0RT4 


1495 


011114 


012761 


122113 


000006 




MOV 


1122113, 6(P1) 


( LOAD INSTRUCTION (CLR DTR) 


1 496 


01 1 122 


052711 


000400 






BIS 


IBIT8,(R1) 


(CLOCK INSTRUCTION 


1497 


01 1126 


012761 


021264 


000006 




MOV 


#021264, 6(R1) 


(LOAD INSTRUCTION 


1 49f> 


011134 


052711 


000400 






BIS 


♦BIT8,(R1) 


(CLOCK INSTRUCTION 


1499 


011140 


122761 


000377 


000004 




CMPB 


t377,4(Rl) 


(IS IT ALL ONES? 


1500 


011146 


001003 








BNE 


,410 


(BR IF NO 


1501 


011150 


052712 


010000 






BIS 


#BIT12,(R2J 


(IF YES, NO LINE UNIT, SET STATUS BIT 


1502 


01 1154 


000436 








BR 


20* 




150 » 


011156 


032761 


000002 


000004 




BIT 


IBIT1,4(R1) 


(IS SNITCH A ONE? 


1504 


011164 


001403 








BEQ 


,♦10 


(BR IF M8201 


1505 


011166 


052712 


060000 






BIS 


#BIT13IBIT14,(P2 


) [M8202 ASSUME CONNECTOR 


1506 


01 1 172 


000427 








BR 


20$ 


(CONNECTOR ON) 


1507 


011174 


032761 


000010 


000004 




BIT 


#BIT3,4CR1) 


(IS MRDY SET 


150S 


OU202 


001023 








BNE 


20* 


(BR IF M8201 NO CONNECTOR (ON LINE) 


1509 


01 1 204 


012761 


O00100 


000004 




MOV 


#BIT6,4(R1) 


(LOAD P0RT4 


1510 


01 1212 


012761 


122113 


000006 




MOV 


#122113. 6CR1) 


(LOAD INSTRUCTION 


151 t 


01 1 220 


052711 


000400 






BIS 


#BIT8,(R13 


[CLOCK INSTRUCTION SET DTR) 


1512 


01 1224 


012761 


021264 


000006 




MOV 


#021264, 6(R1) 


LOAD INSTRUCTION 


1513 


01 1232 


052711 


000400 






BIS 


#BIT8,CR1) 


(CLOCK INSTRUCTION (READ MODEM REG) 


1514 


01 1236 


032761 


ooooto 


000004 




BIT 


#BIT3,4CR1) 


(IS MRDY SET NOW? 


1515 


01 1244 


001402 








BEQ 


20* 


(BR IF NO CONNECTOR 


1516 


011246 


052712 


040000 






BIS 


#BIT14,CR2) 


[SET STATUS BIT FOR CONNECTOR 


1517 


01 1252 


005722 






20f I 


TST 


(R2J* 


(POP POINTER 


1518 


011254 


012761 


021324 


000006 




MOV 


#021324, 6CR1) 


(PUT INSTRUCTION IN P0RT6 


1519 


01 1 262 


012711 


001400 






MOV 


IBIT91BIT8, (Rl) 


(P0PT4.AU 15 


1520 


01 1 266 


156122 


000004 






BISB 


4(Ri),(R2)+ 


[STORE DOC MP LINE * IN TABLE 


1521 


01 1272 


01 2761 


021344 


000006 




MOV 


#021344, 6(R1) 


[P0RT6_IHSTRUCTI0N 


1 522 


nt 1 300 


01271 1 


001400 






MOV 


#8IT81BIT9,(P1) 


[CLOCK INSTR. 


1523 


01 1304 


156122 


000004 






BISB 


4(Rl),(R2)t 


[STORE BM87 3 ADD IN TABLE 


1524 


01 1310 


005722 








TST 


(R2) + 


[POP OVER STAT3 


1525 


oi 1 312 


005011 








CLR 


(Rl) 


[CLEAR ROMI 
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1526 


011314 


0O5237 


001310 






INC 


DMNUM 


[UPDATE DEVICE COUNTEfi 


1527 


Oil 320 


022737 


000020 


001310 




CMP 


120, DMNUM 


I ARE MAX, NO, OF DEV FOUND? 


1 52B 


01 1326 


01410 








BEQ 


O* 


[YES DON'T LOOK FOR ANY MORE, 


1529 


01 1 330 


005011 






3St 


CLR 


(Rl> 


1 CLEAR BIT 10 


1530 


on 332 


05061 


000006 






CLR 


6(R1) 


[CLEAR SEL 6 


1531 


011336 


062701 


000010 




14*1 


ADD 


#10, Rl 


[UPDATE CSR POINTER ADDRESS 


1532 


011342 


022701 


164000 






CMP 


#164000, Rl 




1533 


011346 


001203 








BNE 


2* 


[BR IF MORE ADDRESS TO CHECK, 


1534 


01 1 350 


005037 


001306 




13*1 


CLR 


DM AC TV 




1535 


011354 


005737 


001310 






TST 


DMNUM 


[WERE ANY DMCll'S FOUND AT ALL? 


1536 


011360 


001423 








BEQ 


5* 


[ERROR AUTO 5IZER FOUND NO DMCll'S IN THIS SYS 


1537 


011362 


013701 


001310 






MOV 


DMNUM, Rl 




1538 


011366 


01 0137 


001314 






MOV 


Rl , SAVNUM 


[SAVE NUMBER OF DEVICES 


1 540 


011374 


006137 


001306 




i i ! 


ROL 


DMACTV 


[GENERATE ACTIVE REGISTER OF DEVICES, 


15*1 


OH 400 


005237 


001306 






INC 


DMACTV 


[SET THE BIT 


1542 


011404 


005301 








DEC 


Ri 




1543 


01 1406 


001371 








BNE 


4* 


J BR IF MORE TO GENERATE 


1544 


011410 


012737 


000006 


000004 




MOV 


#6, ##4 


(RESTORE TRAP VECTOR 


1545 


01 1416 


013737 


001306 


001312 




MOV 


DMACTV, SAVACT 


[SAVE ACTIVE REGISTER 


1546 


oil 424 


000137 


011456 






JMP 


VECMAP 


[GO FIND THE VECTOR NOW, 


1547 


011130 


104402 


005662 




581 


TYPE 


, MERR2 


[NOTIFY OPR THAT NO DMCll'S FOUND, 


1548 


011434 


005000 








CLR 


RO 


[HAKE DATA LIGHTS ZERO 


1549 


011436 


000000 








HALT 




[STOP THE SHOW 


1550 


Oil 440 


000776 








BR 


• •2 


[DISABLE CONT, SW, 


1551 


011442 


012716 


011336 




691 


MOV 


#14$, (SP) 


[ENTERED BY NON-EXISTANT TIME-OUT, 


1552 


011446 


000002 








RTI 




[RETURN TO MAINSTREAM 


1553 


















1554 


01 1450 


000001 






tiHICHl 


1 






1555 


011452 


102 


002 






,8YTE 


2,2 




1556 


011454 


001256 








TEMPS 






15S7 


















1 558 


011 456 


032737 


000001 


001236 


VECMAPl 


BIT 


»SHO0,STRTSW 




1559 


011464 


001114 








BNE 


5* 




1560 


Oil 466 


012737 


000340 


000022 




MOV 


#340,8*22 


1 SET IOT TRAP PBIO TO 7 


1 561 


011474 


012737 


011650 


000020 




MOV 


#4»,M20 


[ SET IOT TRAP VECTOR 


1562 


011502 


012702 


001500 






MOV 


•DM.MAP.B2 


[SET SOFTWARE POINTER 


1563 


01 1506 


012700 


000300 






MOV 


♦300, RO 


[FLOATING VECTORS START HERE, 


1564 


011512 


012701 


000302 






MOV 


#302, Rl 


[PC OF IOT INSTB, 


1565 


011516 


010120 






151 


MOV 


Rl, (RO)* 


(STABT FILLING VECTOR AREA 


1566 


01 1520 


012721 


000004 






MOV 


#4,(R1)+ 


(WITH , + 2l IOT 


1567 


011524 


022021 








CMP 


(R0)+,(B1)+ 


(ADD 2 TO RO +R1 


1568 


01 1526 


020127 


001000 






CMP 


Rl,*1000 




1569 


011532 


101771 








BLOS 


It 


[ BR IF MORE TO FILL 


1 570 


01 1534 


01 3737 


001 306 


001246 




MOV 


DMACTV, TEMPI 


1 STORE TE"POBALLY 


1571 


Oi 1542 


006037 


001246 




2S 1 


ROB 


TEMPI 


[BRING OUT A BIT 


1572 


01 15 46 


103063 








BCC 


5* 


1 BR IF ALL CONE 


1573 


011550 


012704 


000012 






MOV 


#12, P4 


|R4 IS INDEX REGISTER 


1574 


011554 


016437 


01 1720 


177776 




MOV 


BRLVL(R4),PS 


J SET PS TO 7 


1575 


01 1562 


011201 








MOV 


(R2),P1 




157*. 


01 1 564 


012761 


OOP200 


000004 




vnv 


«200,4(P1) 




1577 


01 1572 


oijftl 


OOlooo 






MOV 


#BIT9, (PI ) 


;SfcT PU'.'J 


1 57R 


01 1 576 


oi 2761 


121111 


0000O6 




wn v 


#121 1 11 ,6(P1) 


I PUT INSTPUCTION IN P0BT6 


1 5 7 o 


011*04 


m?71l 


0014 






MOV 


#PIT91BTT$, (PI 


[FCCE AN INTERRUPT 


lsco 


116 10 


1 "5700 






7< ; 


I*C<< 


PO 


(STALL 


! 5 f t 


' ' ' • ? 














•FTP TI»F TO HiTPPUPT 
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PACE I 0054 



1 5 R ? 


011614 


162704 


000002 




158 3 


01 1620 


001404 






158 4 


01 1622 


016437 


011720 


177776 


1585 


011630 


000767 






1586 


011632 


052762 


005300 


000002 


1587 


01 1 640 


00501 1 






1583 


01 1642 


062702 


000010 




1589 


Oil 646 


000735 






1590 


01 1650 


Q5 i 662 


000002 




159 1 


01 1654 


042762 


000007 


000002 


1592 


011662 


016405 


011722 




159 3 


01 1666 


006305 






1 594 


0! 1 670 


006305 






1595 


011672 


006305 








01 1674 


006305 






1597 


01 1676 


042705 


170777 




1598 


011702 


050562 


000002 




1599 


01 1706 


022626 








011710 


012716 


011640 




1601 


011714 


000002 






160? 


011716 


000207 






160 3 










16 4 


01 1720 


000000 






1605 


Oil 722 


OOOOQO 








0117 24 


000200 






1607 


01 1726 


000240 






1608 


0117 30 


000300 






: 


011732 


000340 






1610 










1611 










1612 


0117 34 


1 05777 


167244 














161 4 


011742 


017703 


167240 




1615 


011746 


105777 


167236 




1616 


01 1752 


100375 






1617 


01 1754 


010377 


167232 




1618 


01 1 760 


042703 


000240 




1619 


01 1764 


000207 






1620 










1621 










1622 


01 1766 









6SI 

3s: 



SUB 


12, R4 


1 GET NEXT LOWEST PS LEVEL 


BEQ 


6$ 


j BR IF R4 « 


MOV 


BRLVLC R4) , PS 


jMOVE NEXT LOWER LEVEL IN PS 




7| 


|BR TO DELAY 


BIS 


ffSJVVf AlRiJ 


{NO INTERUPT ASSUME 300 AT LEVEL 


CLR 


CR1 ) 


(CLEAR ROMI 


ADO 


#|0,R2 


(POP SOFTWARE POINTER 






j KEEP GOING 


B-- 




•GET VECTOR ADDRESS 


BIC 


if - o 1 M 1 
» f $ £ \ n« 1 


jCLEAR JUNK 


MOV 


BRLVL+2 ( R4 ) t RS 


|GET BR LEVEL OF DMCli 


ASL 


R5 


{SHIFT LEVEL 4 PLACES 


ASL 


RS 


»TO THE LEFT FOR THE 


ASL 


as 


j STATUS TABLE 


ASL 


R5 




BIC 


f 170777, R5 


I CLEAR UNWANTED BITS 


BIS 


R5, 2CR2) 


>PUT BR LEVEL IN STATUS TABLE 


CMP 


CSP)+» (SP)+ 


|POP IOT JUNK OFF STACK 


MOV 


#3$ , (SP) 


f SET FOR RETURN 


RTI 






RTS 


PC 


I ALL DONE WITH "AUTO SIZING" 


o 


; LEVEL 




o 


1 LEVEL 










240 






300 


f LEVEL 6 




340 






TSTB 


STKCSR 


jWAIT FOR DONE 


BPL 


s-4 




MOV 


9TKDBR,R3 


IPUT CHAR IN R3 


TSTB 


MPCSR 


jWAIT UNTIL PRINTER IS READY 


BPL 


i*4 




MOV 


R3,?TPDBR 


( ECHO CHAR 


BIC 


#BIT7JBIT5,R3 


(MASK OFF LOWER CASE 


RTS 


PC 


) RETURN 



15300 
1S400 
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2 
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5 
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fi 
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7 
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S 
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q 
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1 


, SBTTL 


I 1 
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I 2 


! 
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1 1 


1 
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O00000 

000000 
100000 
020000 
000000 
040000 
060000 
060000 

060000 
010000 
014000 
000400 
001000 
001400 
002000 
002400 
003000 
003*00 

000200 
000220 
000240 
000260 
000300 
000320 
000340 
000360 
000000 
0C0020 
000040 

000) 00 
000120 
000140 
0O0160 

004000 
010»r>0 
014000 

ooiooo 

001400 
0004QO 
002000 
002400 
003000 
003400 



NEN»0 

I MICROPROCESSOR INSTRUCTION WORD DEFINITIONS 

MOVEsO j OPCODE MOVE 

JUMPalooOOO »OPCODE JUMP 

IBUS«20000 J SOURCE IBUS 

IMMsO jSGURCVE IMMEDIATE 

MEMX«40000 J SOURCE MEMORY 

BRXrSOOOO » SOURCE BR 

BR»60000 • SOURCE BR 



DPS60000 

LDMARslOOOO 

INCMAR«14000 

*fRTE8?s400 

WRDUTXalOOO 

SHFTBR*140Q 

WROUT»2000 

KRMEM»2400 

SPX=3000 

SPBRX«3400 

j FUNCTIONS 

SELA3200 

SELB«220 

A0RNBa240 

AANDBs260 

AOP8=30C 

AXORB«320 

SUB=340 

SUBTC=360 
ADD«0 
ADDC=20 
5UBC»40 
INCAS60 
AC=100 
AA=120 
AAC=140 
DECA«160 

I END FUNCTIONS 
PAGE1»4000 
PAGE2«10000 
PAGE3»14000 

CCONDslOOO 

ZC0ND*1400 

AtCOSD=400 

BR0C0Ss2000 

BR1C0N«2400 

BR4CON=3000 

BR7CDNs3400 



SOURCE BR 
MA-LOAD MAR I>0 
MA-INCREMENT MAR 
DEST'SiKITE BR 
DEST-EXTENDED IBUS 
DEST-SHIFT BR LEFT 
DEST-NRITE OUTPUT 
D EST- WRITE MEMORY 
DEST-WRITE SP 
DEST-WRITE SP AND BR 

FUNCTION-SELECT A 
FUNCTION-SELECT B 
FUNCTION-A OR NOT B 
FUNCTION A AND B 
FUNCTION-A OR B 
FUNCTION A XOR B 
SUBTRACT 

FUNCTION- TWOS COMPLEMENT SUBTRACT 

ADD A+B 

A+B+CARRY 

A-B-C 

INCREMENT A 
A PLUS CARRY 
A PLUS A 
A PLUS A PLUS C 
DECREMENT A 



ICONDITION C 

jCONDITION Z 
; ALKAYS 

(CONDITION BRO 

ICONDITION BR1 

jCONDITION BR4 

jCONDITION BR7 
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6 "5 .SBTTL MICRO INSTRUCTION DEFINITIONS 

66 .SBTTL BRANCH INSTRUCTIONS 

67 j 

b> 100000 JUMP=100000 jJUMP OP CODE 

6" J 

70 .MACRO SZERO 

71 MICPCbHICPC+1 

72 000000 
7 ? 

7<i , ENDM SZERO 

7-i 1 

76 .MACRO ALWAYS ADORES (JUMP ALWAYS 

7 7 MICPCaMICPC+1 

7 <JUMPJALCONDKADDRES-INITt3000»4>!<ADDRES-INITt777/2» 

1 a 

an .ENDM 

B! J 

B2 .fACRO BRO ADDRES jJUMP IF BRO SET 

«' MICPC»MICPC+1 

<JUMPJBROCONKADDRES-INITt3000«4>l<ADDRES-INITt777/2» 

S6 .ENDM 

P" " .MACRO BP1 ADDRES jJUMP IF BR1 SET 

S9 MICPC«MICPC+1 

"JO <JUMPlBRlC0Nl<ADDRES-INITS3000»4>I<ADDRES-I"ITt777/2» 

91 

92 , ENDM 

03 , 

9 4 , MACRO BR 4 ADDRES |JUMP IF BR4 SET 

95 MICPCBMICPC+1 

96 <JUMpiBR4CONi<ADORES»INITS3000»4>l<ADDRES-INITS777/2» 
97 

.ENDM 

99 I 

l' v 7 ."ACRO BR7 ADDRES jJU*P IF BR7 SET 

101 MICPC»MICPC+1 

102 <JUMPlBR7CONl<ADDRES-INITS3000«4>l<ADDRES-INI«777/2» 

i 3 

104 .ENDM 

1 01 I 

1 n * .^ACRO Z ADDRES ( JUMP IF Z BIT SET 

107 WJCPC«MICPC+1 

I"? <JUMPlZCONDl<ADDRES-INITi30O0*4>l<ADDRES-INITS777/2» 

109 

110 .ENDM 

111 , 

112 ,«ACRO C ADDRES iJUMP IF C BIT SET 

113 "ICPCsMICPC+1 

1 1 4 <J'JMP!CCOND!<AOnRFS-INIT63000*4>i<ADDRES-INITS777/2» 
1 1 S 

116 .f'NDM 

117 .SBTTL INDEXED BRANCH INSTRUCTIONS 

1 1 P ; 

n q ."Acsn ,*:,way spcfunc.splpc i7ndfxep jump always 

1?" MTCFC =MTTPC+1 



P5 
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121 <JUNPIALC0NDISRC!FUNC1SPL0C> 

t22 

123 .ENDM 

124 j 

125 .MACRO ,BRO SRC, FUNC, SPLOC jINDEXED JUMP ON BRO SET 

126 MICPC»MICPC+1 

127 <JUMp<BP0CONtSRClFUl»CtSPLOC> 
12* 

129 .ENDM 

1 30 | 

131 (MACRO ,BR1 SRC, FUNC, SPLOC jINDEXED JUMP ON BR1 SET 

132 MICPC»MICPC*1 

133 <JUNPJBP1C0NISRCIFUNCISPL0C> 

134 

1 35 .ENDH 

136 I 

137 .MACRO ,BR4 SRC . FUNC » SPLOC > INDEXED JUMP ON BR4 SET 

138 MICPC«MICPC+1 

139 <JUMP1 BR4C0N } SRC 1 FUNC t SPLOO 

140 

141 ,ENOM 

142 J 

143 .MACRO ,BR7 SRC , FUNC , SPLOC f INDEXED JUMP ON BR7 SET 

144 MICPC«MICPC+1 

145 <JUMP IBR7CON I SRC 1 TUNC 1 SPLOO 

14ft 

147 .ENDM 

149 , 

149 .MACRO ,Z SRC, FUNC, SPLOC I INDEXED JUMP ON Z BIT SET 

150 MICPC»MICPC*1 

151 <JUMPJZCONDJSRClFUNCJSPLOC> 

152 

153 .ENDM 

154 I 

155 .MACRO ,C SRC, FUNC, SPIiOC 1 1NDEXED JUMP ON C BIT SET 

156 MICPC»MICPC+1 

157 <JUMp|CC0ND!6RCIFUNCISPL0C> 

158 

159 .ENDM 

160 .SBTTL MOVE INSTRUCTIONS 

161 | 

162 000000 HOVEbO jMOVE OPCODE 

163 » 

164 .MACRO BRSHFT f BR SHIFT RIGHT 

165 MICPC«MICPC*1 

166 <MOVE 1 SHFTBR t WRTEBR I SELB> 

167 

168 .ENDM 

169 J 

17n .MACRO BSHFTB »BR ROTATE 

171 MICPC«MICPC+1 

172 <M0VE!SHFT8PISELB»BR> 

171 

174 .ENDM 

175 T 

176 .MACRO SP SRC. FUNC, SPLOC (LOAD SCRATCH-PAD 



DMC-11 wirBOPPOCESSIR INSTRUCTIONS MACY11 27(1006) 14-DEC-76 16M4 PAGE 2-2 PAGES 0061 
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177 MICPC»HICPC+1 

1 78 <M0VE15PXISPC|FUNC15PL0C> 

179 

ISO .ENDM 

1 a 1 I 

18? .MACRO SPBR SRC , FUNC , SPLOC |LOAD SP AND BR 

183 MICPC«MICPC+1 

194 <MOVE 1 SPBRX ! SRC 1 FUNC 1 SPLOC> 

195 

186 .ENDM 

1 H7 1 

198 .MACRO MEM SRC, DATA (MOVE TO MEMORY 

189 MICFCsMXCrC*: 

190 <MOVE 1 HRMEM 1 SRC 1 <DATA>> 

1°1 

19? .ENDM 

191 i 

194 .MACRO MEMADR ADDRES, FUNC J WRITE ADDRESS TO MEMORY 

195 MICPC»MICPC+1 

196 .IF B FUNC 

197 <MOVElWPMEM!<ADDRES-INITi777/2» 

198 .IFF 

1 99 <MOVEl WRMEMi FUNC I <ADDRES-INITt777 /2» 
20" , ENDC 

201 .ENDM 

202 1 

201 .MACRO MEMINC SRC, DATA »MOVE TO MEM, INCP MAR 

?04 MICPC«MICPC*1 

2 05 <MOVEt WRMEMI INCMAPISRC I <DATA>> 

206 

207 .ENDM 

208 f 

209 .MACRO BRWRTE SRC, DATA |MOVE TO BR 
21" MICPC*MICPC+1 

211 <MOVEiWRTEBPlSRCl<DATA» 

21? 

?13 .ENDM 

214 I 

715 ."ACRO BRADDR ADDRES »PUT RETURN ADDP (1 BYTE) IN BR 

216 MICPC«MICPC+1 

217 <MOVE!WPTEBRJ<ADDRES-INIT*777/2» 

21? 

219 .ENDM 

220 } 

221 .MACRO OUTPUT SRC, DATA ;WRITE OUTPUT 
72? MICPCaMICPC+1 

723 <MOVE!WPOUT!SRCKDATA» 
77* 

725 .ENOM 

22*5 , 

777 .'XHCRO OUT SRC i DATA 

77' :<TCPC = MTCPC + 1 

729 < , <OVE!W»n;JTXiSPCl<DATA>> 

71" 

l 1 i . v wnw 
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233 .MACRO LDMA SRC, DATA {LOAD MEMORY ADDRESS REG 

734 MICPCoMICPC+1 

7 35 .IF IDN SPC.IMM 

236 <M0VEitDHARJIHMKDATAt377» 

737 -IFF 

238 <MO YE I LDM AR { SRC I <DATA» 

239 ,ENDC 

240 

241 .ENDM 

242 ; 

243 .MACRO LDMAP SBC, DATA jLOAD HEMORY PAGE NUMBER 

244 MICPC«MICPC+1 
745 e Tf I5H SRCjIHM 

246 <H0VEILDHAPGllHMJ<DATA/400» 

247 . IFF 

248 < MOVE I LDH APG I SRC i <DATA» 

249 .ENDC 

250 

251 .ENDM 

252 I 

253 .MACRO LDADDP DATA jLOAD A LIKE TABLE ADDRESS 
2-i 4 BRNRTE IMM, DATA 

7*5 IjOMA BP. <ADDiSP,RKO> 

756 , ENDM 

757 J 

758 .MACRO CMP SRC»SPADDR f COMPARE SOURCE AND SP 
259 MICPC»HICPC+1 

760 <SUBTCJSRC1SPADDR> 

761 

262 . ENDM 

263 I 

2h4 ,*ACRO SOP SRC, f UKC.SP ADD B S KOP=SO'JRCE, FUHC* HO DES7 

265 MICPCsMICPC+1 

266 <SRCIFUNC!SPADDR> 

767 

268 .ENDM 

769 

770 .MACRO CALL REG, ADDRES | SUBROUTINE CALL 

771 DISP«<MICPC+1>*377 

772 BRWRTE IMM,DISP+3 

773 SP BR,SELB,REG 
77 4 ALWAYS ADDRES 

775 e ESDM 
776 

777 .MACRO RETURN REG, PAGE » SUBROUTINE RETURN 

77S , ALWAY BR,SELA,<REGIPAGE> 

779 .ENDM 

280 
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DMCHG».MAC 


06-OEC-76 10:31 


INPUT /OUTPUT ASSIGNMENTS 




787 




, SBTTL INPUT/OUTPUT 


ASSIGNMENTS 


2»3 




;IBUS ASSIGNMENTS 




284 


100000 


INCON»0+100000 


j IN CONTROL CSR 


2»5 


100020 


MAIN»20+100000 


) MAINTAINENCE REGISTER 


786 


100040 


OCON»40+100000 


jOUT CONTPOL CSR 


787 


100060 


UBADDRaftO+lOOOOO 


I UNUSED 


?8» 


100100 


PORT1«100+100000 


;CSR4 


230 


100120 


PORT2«12O+100000 


jCSRS 


7T0 


100140 


PORT3al40+100000 


;CSR6 


71! 


100160 


PORT4S160+100000 


JCSR7 


292 


1O0700 


NPR*200+100000 


jNPR CONTROL 


793 


100220 


U8BR=220+100000 


jBR( INTERRUPT)CONTROL 


?04 


000000 


INDATlaO 


» INPUT DATA LOW BYTE 


795 


000020 


JNDAT2=20 


t INPUT DATA HIGH BYTE 


2«6 


000140 


IOBAlal40 


jOUTPUT BA LOW BYTE 


797 


000160 


IOBA2=160 


t OUTPUT BA HIGH BYTE 


29B 


000100 


IIBAlelOO 


S INPUT BA LOW BYTE 


299 


000120 


IIBA2»120 


1 INPUT BA HIGH BYTE 


300 


000200 


RCVDAT»200 


jRECEIVE DATA 


301 


000220 


THTCONe220 


J TMTR CONTROL 


307 


000240 


RCVCONa240 


jRCVR CONTROL 


30? 


000260 


MODEM»26Q 


| MODEM CONTROL 


304 


000300 


SYNREGs300 


jSYN REGISTER 


305 


000320 


LNOSW&320 


I LINE NUMBER SWITCH 


306 


000340 


BM873B340 


>BM373 ADDRESS 


307 


000360 


LUMAIN«360 


(LINE UNIT MAINTAINENCE 


300 




lOBUS ASSIGNMENTS 




109 




J EXTENDED OBUS 




310 


000000 


OINCONaO 


}IN CONTROL CSR 


311 


000001 


OMAINal 


JMAINT 


317 


000002 


0OCONa2 


jOUT CONTROL CSR 


31 3 


000003 


0UBADDa3 


J UNUSED 


31 4 


000004 


OPORT1«4 


)CSP4 


315 


000005 


0P0RT2a5 


JCSR5 


31* 


000006 


0P0RT3s6 


;CSR6 


317 


000007 


0PORT4s7 


>CSR7 


318 


000010 


ONPRalO 


JNPR CONTROL 


3t "J 


ooooi i 


OBR^i i 




320 




1 UNEXTENDED OBUS 




321 


000002 


0UTDA1=2 


jOUTPUT DATA LOW BYTE 


32? 


000003 


OUTDA2«3 


.•OUTPUT DATA HIGH BYTE 


323 


000006 


0BA1«6 


, OUTPUT BA LOW BYTE 


324 


000007 


0RA2»7 


j OUTPUT BA HIGH BYTE 


325 


000004 


IBA1B4 


j INPUT BA LOW BYTE 


326 


000005 


IBA2i5 


f INPUT BA HIGH BYTE 


327 


O00010 


TMTDATalO 


; TMTR DATA 


328 


ooooi l 


DTMTCOal 1 


: TMTR CONTROL 


329 


000012 


0PCVC0=12 


;RCVR CONTROL 


330 


00001 3 


0M00EMsi3 


t MODEM CONTROL 


331 


00001 1 


SYNC=1 4 


;SYN REGISTER 


337 


00UO1 7 


ou;man=i7 


;LINE UNIT "AINT. 



OMC-1 t 


microprocessor instructions 
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DMCHGli 


"AC 06-DEC-76 10(31 


PROTOCOL DEPENDANT MACROS 


334 




.5BTTL PROTOCOL DEPENDANT MACROS 


335 




.MACRO RSTATE STATE |UPD» 


33* 




MICPC=MICPC+1 


337 




<MOVElWRTEBRI IMMt<STATE-INITt777/2» 


338 




MICPC«MICPC+1 


33° 




<MOVE 1 SPX J BR 1 5ELB 1 SP3> 


34(1 




,ENDM 


34t 






34? 




.MACRO TSTATE STATE 


343 




MICPC»MICPC + 1 


344 




<MOVElWRTEBPlIMM|<STATE"INIT4777/2>> 


34S 




MICPC»HICPC+1 


346 




<MOVE 1 SPX 1 BR { SELB 1 SP2> 


347 




,ENDM 


34R 






349 




.MACRO STATE ADDR 


350 




MICPC«MICPC+1 


351 




<M0VE1 WRTEBP J IMMKABDR-INITt777/2» 


35? 




.ENDM 


353 






354 




.MACRO PSTATE STATE 


355 




MEM IMM,«STATE»INITt777/2» 


356 




.ENDM 


357 






350 




■ MACRO PSTATI STATE 


350 




MEMINC IHM,<<STATE«INITi777/2» 


360 




,ENDM 


36 1 






362 




.MACRO SYNMAC 


363 




SP BR(SELB,SP2 ( UPDATE STATE 


36* 




SYNOUT 


365 




ALWAYS IDLE 


36* 




,ENDM 


367 






36* 




.MACRO SYNOUT 


36*? 




LDMA IMM, UNMSG ; LOAD PTR TO 


370 




OUTPUT <MEMXtINCMAR>,<SELBJOTMTCO> »SOM 


371 




OUTPUT <MEMX!INCMAR>,<SELB1TMTDAT> r SYNC 


37? 




.ENDM 


371 






374 


177777 


MICPCB177777 UNIT MICRO PC 


375 







PAGE I 0064 



| UPDATE RECEIVE STATE POINTER 
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3B3 


.TITLE 


394 


, SBTTL 


385 


, SBTTL 


366 


.SBTTL 


3B7 


.SBTTL 


389 


.SBTTL 


38" 


, SBTTL 


390 


.SBTTL 


331 


.SBTTL 


392 


.SBTTL 


393 


.SBTTL 


394 


.SBTTL 


39S 


.SBTTL 


396 


.SBTTL 


397 


.SBTTL 


39« 


.SBTTL 


399 


, SBTTL 


400 


.SBTTL 



DMC11 DDCMP PROTOCOL IMPLEMENTATION 
VERSION 00A FEBRUARY 26,1975 

HARVEY. M, SCHIiESINGER 

COPYRIGHT 1975, DIGITAL EOuIFKEKT CCRPORATIOS 

VERSION OOB MARCH 17,1975 

CSR AND MICROPROCESSOR CHANGES 

VERSION OOC NOVEMBER 6, 1975 

RETRANSMISSION CHANGES 

VERSION OCD DECEMBER 3,1975 

TRANSMIT DONE CHANGES 

THE LATEST MODIFICATIONS WERE ADDED ONj 
NOVEMBER 16, 1976 



DMC11 ODCMP PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 I6t44 PAGE 6-1 PAGE: 0067 



DDCHGH.MAC 
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MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


405 




.SBTTL MICROPROCESSOR MAIN MEMORY ASSIGNMENTS 


40 1 




f ALLOCATION OF 


MICROPROCESSOR MAIN MEMORY 


ina 


000000 


NAKSRsO 


jNAKS RECD--DYNAMIC 


405 


000001 


NAKSTbNAKSR+1 


JNAKS TMTED--DYNAMIC 


406 


000002 


REPSReNAKST+1 


TREPS RECD— DYNAMIC 


407 


000003 


REPSTbREPSR+1 


»REPS TMTED--DYNAMIC 




00000ft 


K'O.BCDSTil 


•CONSTANT 


400 


000007 


NTLR»NP+1 


tNAKS-MSG NO BUFFERS CUMUL, 


41 


00001 


NHDR«NTLR+1 


|NAKS«MSG HEADER BAD 


11 1 


000011 


NDATR»NHDR+ 1 


fNAKS-DATA BAD 


41 ? 


O0001 2 


NTLS«NDATR+1 


JNAK SENT "NO BUFFERS 


41 5 


000(11 3 


NHDS«NTLS+1 


JNAK SENT BAD HEADER 


41 4 


000014 


NDATS«NHDS+1 


f NAK SENT BAD DATA 


415 


000015 


REPCSsNDATS+1 


fREPS SENT CUMUL 


416 


000016 


PEPCR«REPCS+1 


»REPS RECD CUMUL 


417 


OO0017 


BASEeREPCR+1 


{CORE TABLE BASE ADDRESS 


41 R 


000022 


SRC»BASE+3 


| START OF INPUT CHAIN— NEXT RECV DONE 


419 


000023 


ERCsSPC+1 


] END OF INPUT CHAIN 


420 


000024 


RCLlaERC+1 


fRECEIVE LINK 11 


421 


000031 


RCL2«RCLl+5 


> " • *2 


42? 


000036 


RCL3»RCL2+5 


t "13 


423 


000043 


RCL4«RCL3+5 




424 


000050 


PCL5=RCL4+5 




425 


000055 


RCL6»RCL5*5 




476 


000062 


RCL7«RCL6t5 




427 


000067 


STCeRCL7+5 


j START OF OUTPUT CHAIN— NEXT TMT DONE 


42f> 


000070 


ETC«STC+1 


jEND OF TRANSMIT CHAIN 


4?o 


000071 


TML1«ETC+1 


J TRANSMIT LINK #1 


430 


000077 


THL2bTML1+6 


J " *2 


431 


000105 


TML3«TML2+6 


t *3 


43? 


000113 


TML4aTHL3+6 




433 


000121 


TML5STML4+6 




134 


000127 


TML6»THL5+6 




435 


000135 


TML7aTML6+6 




436 


0001 43 


TKL8»TML7*6 




437 


000151 


T=TML6+6 


j TYPE FIELD 


43« 


000152 


ST=T+1 


I SUBTYPE FIELD 


4 JQ 


000! 53 


IKP1 7=ST+i 


•MSG ACKED IMAGE 


440 


000154 


IMG10aISP17+l 


I IMAGE OF BIT 1 OF SP10 


441 


000155 


IMG11*IMG10+1 


) IMAGE OF SP11 


44? 


000156 


IMG12eIMGll+l 


j IMAGE OF SP12 


44 3 


000157 


IMG14aIMG12+l 


j IMAGE OF SP14 


444 


000160 


IMG16=IMG14+1 


t IMAGE OF SP16 


44". 


000161 


I"G17*IMG16+1 


JIMAGF OF SP17 


44* 


000162 


TYpTAP,olMG17 + l 


I TYPE TABLE— 


417 






j72 TYPE TABLE PEP 


44 ji 






»73 " " NAK 


41<j 


000164 


TYPSTTaTYPTAB+2 


174 " " START 


450 






»75 " " STACK 


451 








45? 








45 1 


nnrit67 


BC=TYPSTT+3 


iRECEIVF BYTE COUNT 


45 1 


0"01 71 


TSPt 1=BC+? 


I5P11 IMAGE 


455 


0"01 72 


TSP1 ?=ISP1 1 +1 


j spi 2 image: 


4S« 


nnoi 7 3 


:>to«;s=ispi 2*i 


JIN CONTROL CSR IMAGE 


457 


nno 1 74 


PTH«S=T!irn*'S+l 


tPECV THRESHOLD LINK 
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45« fALL LOCATIONS FROM 200 ON ARE NOT WRITTEN OUT DURING A TABLE UPDATE 
459 

460 000210 TABST=210 (TABLE UPDATE STATE 

461 0O021) PPTST»TABST+1 |PORT STATE 

462 000240 NXTINT»240 (NEXT INTERRUPT POSITION 

463 000241 NXTSP»NXTINT+l (END OF INTERUPT CHAIN 

464 000242 INTSTK»NXTSP*1 ( STACK Or INTERUPTS 

465 000400 MMENDMOO (MAIN MEMORY END 
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DrCHr,».«SC 06-OEC-7S 11:34 SCRATCH PAD ASSIGNMENTS 

467 .SBTTL SCRATCH PAD ASSIGNMENTS 

46= 000000 SPO«0 jSPO— SCRATCH REGISTER 

460 000001 SP1«1 |SP1— PORT STATUS WORD 

470 iBIT ASSIGNMENTS 

17 1 >BITO— INIT MODE 

47? jBITl— SEC STATION SELECT (UNUSED) 

47 1 | BIT2--N0 BUFFER ASSIGNED IN BOOT MODE 

474 JBIT3--DLE RECEIVED WHILE NOT IN MAINT MODE 

47«. |BIT4-«INTERRUPT PENDING 

47fc >BIT6— DISCONNECT ERROR 

477 »BIT7«B00T MODE 

47fl 000002 SP2*2 »SP2— TRANSMIT STATE POINTEP 

47=) 000003 SP3=3 )SP3— RECEIVE STATE POINTER 

4*1 000005 SP5»5 >SP5— END RECEIVE ADDRESS 

4»2 000006 SP6«6 »SP6— END TRANSMIT ADDRESS 

4H3 000107 SP7»7 >SP7 — END TRANSMIT ADDRESS 

404 000010 SPlOslO »SP10— LINE STATUS WORD 
4*5 »BIT ASSIGNMENTS 

4R6 »RIT0«UNNUMB PENDING 

4fl7 jBITt—MESSAGE IN PROGRESS 

4SR JBIT2— LINE HAS GONE IDLE 

48=1 JBIT3--START RECEIVED 

4<»n IBIT4--CLEAR ACTIVE ON END 

401 | BIT5--START MODE 

49? f BIT6--HALF DUPLEX 

4<n >BIT7--0K TO SEND 

4°4 00001 1 SP1 1 = 1 J jSPU—R FIELD 

405 000017 SP12»12 fSPl2— N FIELD 

406 000013 SP13=13 >SP13— -TYPE 

407 000014 5P14»14 |SP14— RECEIVE LINK IMAGE 

493 000015 SP15B15 >SP15— TIMER ENTRY— NUMBER OF ONE SECOND TICKS 

40-3 onO"16 SP16«16 » SP1 6 ---POINTER TO TMT LINK COPY IN MAIN MEM 

50" 000017 SP17«17 f SP1 7---LAST MESSAGE ACKNOWLEDGED 
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502 




501 




504 




505 




506 




507 




50fl 




sot 




510 


01 1766 


( 1 1 
( 1 ) 


011766 


( 1 ) 
51 1 


01 1770 


( t 5 
f 1 1 


01 1 770 


( 1 1 
512 


01 1772 


( 1 ) 
C1 1 


01 1772 


C 1 ) 
513 


011774 


1 1 ) 
(1) 


01 1774 


(1) 
514 


01 1776 


( 1 1 
( 1 ) 


011776 


( 1 1 
515 


01 2000 


t 1 1 
( 1 5 


01 2000 


51A 




517 


01 2002 


( 1 1 
( 1 ) 
C 1 ) 


012002 


SIR 
51<J 


01 2004 


( 1 1 
t 1 1 


01 2104 


< 1 ) 
520 




521 


012006 


C 1 1 
1 1 1 


01 2006 


1 1 ) 
522 


012010 


r 1 •> 
( l ) 
r 1 1 


012010 


57? 


017012 


f 1 ) 


01 2012 


( 1 1 

■=74 


012014 



000000 
063220 



OOOOOS 
063723 



000002 
063237 



000003 
061200 



000004 
061202 



000005 
003370 



.SBTTL INI T-« INITIALIZATION ROUTINE 
I ZEROS MAIN MEMORY 

>LOOPS WAITING FOR RECEIVE DATACBOOT?) 
»0P FOR RQI TO BE SET 

J WILL ACCEPT ONLY BASE FORMAT, ALL OTHERS WILL RETURN A PROCEDURE ERROR 
» 

1 AT INITIALIZATION THE HARDWARE CLEARS THE BR AND MAR 

.=11766 



SP BR,SELB,SPO 

MICPC«MICPC+1 

<MOVE ! SPX 1 BR 1 SELB 1 SPO> 

SP BR ( SELB»SP3 

KICPCaBICPC*! 

<M0VE1SPX1BPJSELB1SP3> 

SP BR,SELB,SP17 

MICPC«MICPC+1 

<*0VElSPXiBPJ5ELBlSP17> 

OUT BRi<SELA}OINCON> 
MICPC«HICPC*1 

<MOVE!WPOI'TX1BR!<SELA10INCON>> 

OUT BR,<SELAIOOCO«> 
MICPC=MICPC+1 

<M0VEI WROUTX | BRKSELA 1 00C0N» 

SP IMM,370,SP10 

MICPCaWICPC+l 

<MOVEISPXII«M13701SP10> 



SP BR,AA,SP10 

MICPC»MICPC*1 

<MQVEJSPXiBRlAAlSP10> 



i CLEAR SPO 



I PAGE ONE TRANSFER ADDRESS 



j CLEAR SP17 



I ZERO THE IN CONTROL CSR 



I ZERO THE OUT CONTROL CSR 



I WRITE 5 ONE BITS TO THE HIGH ORDER 



;BITS OF SP10 

jSHIFT SP10 LEFT SETTING CARRY THE 



MEMINC BR,ADDCiSP3 
MICPC»MICPC*1 

<M0VE1WRMEMJ INCMAR1 BRKADDC 1 SP3>> 



jFIRST 5 TIMES THRU THE LOOP 
I WRITE A ONE TO THE FIRST 5 MEMORY 



SP BR,INCA,3P0 

MICPCaMICPC+1 

<MOVE!SPX!BP$INCAJSPO> 



{ LOCATIONS AND ZERO THE REST 
j INCREMENT COUNTER 



! ALL DONE 



7 10$ 
MICPC»MICPC + 1 
<JUMPSZCONDl<10«-INITi3000*4>K10S-INITS777/2» 

ALWAYS 5$ (KEEP GOING 

MICPC»MICPC+1 

<JUMPlALCONDK5*-INITS3000»4>l<5$-INITt777/2» 



IMM.l.SPl 



t WRITE A 1 TO THE BR AND SP1 



dmci : 

DDCFC 
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000013 
0O3401 



01 20 14 
012016 
012016 
01 2020 
012020 
01 2022 

000016 
001 

012022 010162 



'117024 
012024 
012026 
O12026 
012030 
012030 
012032 
012032 
012034 

01 2036 
01 7035 
O12040 
17040 
01 2042 
"1 2042 
''1 7044 

o 1 7044 



000014 
063231 



000015 
063232 



000017 
000626 



0O0020 
062234 



000021 
016403 



O00022 
002402 



000024 
016406 



0O0025 
016407 



000026 
016401 



27 

ooi 

10 710 



MACY11 27C1006) 14-DEC-76 16|44 PAC 
INIT--INITIALIZATION ROUTINE 

MICPCaMICPC+1 

<m0ve1spbrx1immj11sp1> 

sp br, selb, sp1 1 

micpc»micpc+1 

<m0ve1spx1br|selb1sp11> 

sp br,selb,sp12 
micpc«micpc + 1 
<moveispxsbrjselb:spi2> 

ldma imm,typtab 

MICPCeMICPC+1 

.IF IDN IMM, IMM 

<M0VE1LDMAR! IMM ! <TYPTAB&377» 

.IFF 

<MOVE J LDMAR! IMM J <TYPTAB» 
.ENDC 

BPWRTE IMM, 226 

MCPCsMICPC + 1 

<MOVE ! WRTEBP I IMM | <226» 



PAGE: 0071 



jWRITE A 1 TO SP11 



JWRITE A 1 TO SP12 



1 POINT MAR TO TYPE TABLE 



j WRITE SYNC TO MEMORY 



OUTPUT BP, SELB i SYNC 
HICPCeMICPC+1 

<M0VEIWR0UT1BRKSELB!SYNC» 

MEMINC IMH.3 
MICPC»MICPC+1 

<M0VE!WPMCM!INCMAR1IMM1<3» 

MEM IMM.2 
"TCPC"MICPC+1 
<H0VE!«P"EMiIMMl<2» 

SP MEMXHNCMAR,SELB,SP15 
«ICPC»MICPC+1 

<«Ove j spx J mtmx! INCMAR1SFLB1 SP1 5> 

MEMINC IMM, 6 > 
MICPCaMICPC*l 

<^0VE!WRMEMilNCMARIIMMl<6» 

MEMINC IMM, 7 j 
"ICPC«MICPC+1 

<«0VE1WRMEH! INCMAPt IMM1<7>> 

MEMINC IMM.l ! 
'•'ICPCsMICPC + 1 

<"OVE:WRWFf<!INCMARiIMM!<i>> 

1,r>MA T"M,TAPST 
'MCPC = M1CPC*1 
.IF IDN 1"M, IMM 
<vnVE!LOvAP! Tmmi<TABSTM77>: 
. IFF 



1 LOAD THE SYNC REGISTER 



JREP 



jNAK 



jSET STARTING COUNT 



r POINT TO TABLE UPDATE STATE! 



D v .r 1 

ODCHi 
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< MOVE J LDMAR ! IMM ! <TABST>> 
,FNDC 



ot 2046 
(M 2046 



012050 

01 2050 



012050 
012052 



012054 
012054 
012056 
012056 
01 2060 
01 20f>0 
H12062 

O12062 



000030 
016460 



000031 
016533 



00003? 

001 
010067 



000033 
016*71 



000034 
002471 



0*3236 



000036 
001 
010022 



PSTATI 13 jINITIALIZE IT 

MEMINC IMM,«I3-INITl777/2» 

MICPC«MICPC+1 

<MOVEiWRMEMJINCMARJ IMM!«I3-INIT&777/2»> 



| INITIALIZE PORT STATUS 



PSTATI NIDLE2 

MEMINC IMM,«NIDLE2«INITS777/2» 
MICPC«MICPC+1 

<MOVE! WRMEM !INCMAPlIMMJ«NIDLE2-INITS777/2>» 



000037 
P12064 016424 



LDMA IMM,STC 
KICPCsMICPC+1 
.IF IDN IMM, IMM 
<M0VElLDHAR|IMMt<8TCiJ77» 

.irr 

<M0VE1 LDMAR i IMM 1 <STC>> 
,ENDC 

MEMINC IMM.TMLl 
MICPC«MICPC+1 

<M0VE! WRMEM 1 INC MAR 1 IMM t <TML1 >> 

HEM IMM,TMM 

MICPC»MICPC+1 

<H0VEIWRMEMJIMM|<TML1» 

SP «EMX,SELB,SP16 

MICPC«KICPC*1 

<MOVEtSPX!MEMXISELBISP16> 

LDHA IMM, SRC 

MICPC»MICPC-H 

.IF IDN IMM, IMM 

<MOVElLDMAPHMMJ<SRCtc377» 

.IFF 

<M0VE1LDMARJIMM1<SRC» 
.F.NDC 

MEMINC IMM.RCLl 
MICPC«MICPC+1 

<K0VE1 HRMEMJ INCMAR t IHM| <RCL1 >> 



(LOAD ADDRESS OF LAST TMT CHAIN 



I STORE ADDRESS OF FIRST TMT LINK 



; INITIALIZE LAST XMIT POINTER 



[LOAD ADDRESS OF LAST RECV CHAIN 



JSET UP ADDRESS OF FIRST RECV LINK 



000040 
112066 002424 



A00041 
012070 043234 



OOQ042 

ooi 



MEM IMM,RCL1 

MICPCaMICPC+1 

<MOVEI WRMEM 1 IMM 1 <RCL1» 

SP MEMX.SELB.SP14 

MICPC«MICPC+1 

<«OVE!SPX!MEMXlSELBiSP14> 

LDHA IMM, NXTINT 
MJCPC«MICPC+1 
.IF IDN IMM.IMM 



J ADDRESS OF NEXT INTERRUPT POINTER TO MAR 
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PAGEl 0073 



H2.172 010240 



( 1 ) 

5 1 R 


012074 




f 1 1 




O00043 


( 1 1 
( 1 1 


017074 


016642 


5 -to 


"12076 




( 1 1 




000044 


( 1 ) 


1 207* 


002M2 


( 1 ) 
510 


01 2100 




( 1 ) 




000045 


( 1 ) 


012100 


000600 


f 1 ) 
511 


01 2102 




f 1 1 




000046 


( 1 ) 

r 1 1 


01 2102 


061221 


552 






113 




001 


554 


01 2104 




<n 




000047 


(i ) 


012104 


1 10740 


c 1 1 






555 






516 


012106 




C 1 ) 




000050 


( 1 1 


01 2106 


063223 


f 1 ) 
157 




000 



<M0VEILDMAP1 IMMJ<NXTINT4377» 
.IFF 

<M0VEJLDMAP1 IMM I <NXTINT>> 
.ENDC 

MEMINC IMM, INTSTK 
MICPCoMICPC+1 

< MOVE! WRMEM ! INCMARl IPM J <INTSTF >> 

MEM IMM, INTSTK 

MICPCsMICPC+1 

<M0VEi WRMEM! IMM KINTSTK» 

BRWRTE IMM, 200 
MICPC«MICPC+1 
<MOVE!WRTEBR!IMM1<200» 

OUT BR 1 <SELB 1 0MAIN> 

MJCPC«MICPC+-1 

<M0VE! WROUTXlBR!<SELBiOMAIN» 



jINITIALIZE NEXT INTERRUPT POINTER 



J INITIALIZE INSERTION POINTER 



fWRITE THE PUN BIT TO THE BR 



jWPITE THE RUN BIT TO MAINT CSR 



[ FALL INTO IDLE LOOP 

,IF NDF SLOW 
ALWAYS TE0M2 
MICPCoMICPC+1 

<JUMP!ALCOND!<TEOM2-INITS3000»4>|<TEOM2-INIT&777/2» 
1 

SP BR,SELB,SP3 

MICPC»MICPCtl 

<M0VEJSPXIBR!SELB1SP3> 

.ENDC 
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559 






■560 






561 






562 






5h3 






56 1 ! 


012110 




(I) 




000051 


(1 ) 


012110 


060610 


ri) 






565 


012112 




(1 ) 




000052 


(1) 


0121 12 


112400 


(1) 






5hf 


012114 




(!) 




000053 


(1) 


012114 


112000 


CD 






567 




00: 


568 






569 






570 






571 




000 


57? 


012116 




m 




000054 


( i ) 


0171 16 


020640 


(i) 






573 


0121 20 




(1) 




000055 


f 1 ) 


012120 


167203 


( 1 ) 






574 


012127 




( 1 1 




00005f> 


( i ) 




1 


(1) 


01 212? 


010210 


(1) 






(11 






(1) 




000 


(1 ) 






57* 


017124 




(1) 




000057 


( 1 ) 


017124 


140620 


CD 






576 


012126 




57T 




001 


578 


012176 




(11 




000060 


(1 ) 


01 21 26 


000404 


57 « 


0121 30 




t 1 1 




000061 


(1) 


012130 


060342 


(11 






5R" 
(1 1 


01213? 


000062 


CI ) 


"17132 


1 1 1 OOO 


(1 ) 






56 I 




OOO 



.SBTTL IDLE— PROGRAM IDLE LOOP 
I PROGRAM IDLE LOOP 

JDISPATCHES TO APPROPRIATE SERVICE ROUTINES 
»USES STATE POINTERS FOR TMT.RCV.CSR ACTIVITY 



BRWRTE BR,-<SELAiSP10> 
MICPC»MICPC+1 

<HOVE 1 WRTEBR ! BR ] <SELA 1 SP1 0» 



■ READ TRANSMIT STATUS WORD FROM SP10 TO BR 



; IF DATA TO SEND— BRANCH 



BR1 TKTDS 
MICPC*HICPC+l 

<JUHPiBRlCONJ<THTDA-INIT63000*4>!<TMTDA-INIT«777/2» 

BRO THTDA • IF DATA TO SEND— BRANCH 

HICPCoHICPC+1 

<JUHPIBR0CONl<TMTDA-IHIT&30O0»4>l<THTDA-INITS777/2» 



,IF DF 

ALWAYS 



$LOW 
II 



XEXIT: SP BR,SELB,SP2 
,ENDC 

II : BRWRTE IBUS,RCVCOH 

«ICPC«MICPC+1 

<MOVE J WRTEBR J IBUS KRC VCON» 

,BR4 BP,£ELA,SP3!PAGE1 
MICPCsMICPC+1 

<JUMP1 BR4C0N1BR1SELA1SP3|PAGE1> 

121 LDMA IMM, TABST 

MICPC*HICPC+1 

<M0VEILDMARIIMHI<TABST6377» 
, IFF 

<HOVE ! LDMAR ! IMM < <TABST» 
.ENDC 

.ALWAY MEMX, SELB, 
MICPCbMICPC+1 
< JUMP t ALCOND J MEMX J SELB 1 0> 



j READ LINE UNIT RECEIVE CONTROL WORD 



I BRANCH BASED UPON RECV STATE 



; POINT TO TABLE UPDATE STATE 



I GET IDLE TRANSMIT STATE + 1 



-IF NDF SLOW 
STATE TMTA+2 
MICPC»MICPC+1 

< MOVE I WRTEBR J IMM | <TMTA+2-INIT£777 /2>> 

NOP BR,SUB,SP2 ; SUBTRACT FROM CURRENT STATE 

MICPCaMICPC+1 

<BRJSUB5SP2> 

C TMTDA | NON-IDLE STATE 

MICPC»MICPC+1 

<Jl)""P iCCOriD: <TMTDA-IKlT4300.0*4>i<TMTDA-IKITi777/2>> 
.ENDC 



DMC11 onc.P PROTOCOL IMPLEMENTATION 



DDCHGH, 


•'AC 06 


-DEC-76 


58? 


01713 4 




(11 




000063 


(11 


012134 


123620 


(1 ) 






583 


01 21 36 




(1 1 




000064 


(1 1 


0121 36 


113255 


C 1 1 






584 


01 2140 




(1 1 




000065 


( 1 ) 


012140 


023240 


( 1 1 






50=; 


01214? 




(n 




000066 


(ii 


01714? 


060520 


CD 






5"fi 


012144 




( 1 ) 




000067 


(1 1 


012144 


103454 


( 1 1 






587 


012146 




C 1 ) 




000070 


(1 1 


012141 


010211 


C1 1 






(11 






C1 1 




000 


CI 1 






58a 


01 2150 




(1 ) 




000071 


CD 


0121 50 


1 40620 


C 1 3 
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SPBR IBUS,UBBR,SPO 
MICPC=MICPC+1 

<MOVEtSPBRXi IBUSIUBBRISPO 



( TIMER EXPIRES? 



BR4 TIMSRV 
MICPCsMICPC+1 

<JUMPlBR4CONJ<TIMSPV-INITt3000#4>i<TIMSRV-INITS,777/2» 



SP IBUS,PCVCON,SPO 
MICPCaMICPC+1 

<MOVEISPX1I3USIRCVCON|SPO> 

BRWRTE BR,AA1SP0 

MICPCeMICPC+1 

<MOVE I WRTEBR 1 BR ! < AA 1 SPO» 



BR7 II 
MICPC=MICPC+1 

<JUMP!BR7CONl<Il-aNITt3000*4>!<Il-INITS777/2» 



J READ THE RECEIVE CONTROL REGISTER 



I SHIFT IT LEFT 



IRECEIVE ACTIVE, DON'T DO PORT STATUS 



LDMA IMM, PRTST 
M1CPC«MICPC+1 
.IF IDN IMM, IMM 
<M0VEJLDMAfliIMMJ<PRTST4377» 
, IFF 

<MOVEI LDMAR! IMM !<PRTST» 
.ENDC 

, ALWAY MEMX, SELB, 

MICPCbMICPC+1 

< JUMP! ALCOND J MEMX ! SELB1 0> 



; ADDRESS PORT STATE 



I INDEX 
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590 




591 


012t52 


( 1 1 


012152 


(25 




( 2 ) 


012152 


(21 




59? 
( 1 ) 


012154 


<n 

(1) 
(1 ) 
(1) 


01215* 


(1 ) 
( 1 ) 
59? 


012156 


( 1 1 
(15 


012156 


( 1 ) 
594 


01 2160 


( 1 1 
( 1 ) 


omso 


(1 1 
595 


012162 


( 1 1 

n i 
ri) 


01216? 


59f 


012164 


( 1 ) 

C 1 ) 


012164 


597 


012166 


( 1 1 
( ' ) 


012166 


( 1 ) 
59P 


012170 


( 1 1 


012170 


( 1 1 

599 


"1217? 


(1 ) 
( t 1 


017172 


(11 
60P 


(11217 4 


(1 ) 
(11 


01217 4 


( 1 ) 
601 


01 217* 


( 1 1 




( 1 ) 
002 
( 1 ) 


01 ?2f " 


r 1 1 
f 1 ) 
( 1 1 
( 1 1 


ni 2?oo 



000073 
001 



000074 
136500 



000075 
136520 



000076 
122560 



000077 
123000 



000100 
000500 



000101 
06126O 



000102 
002133 



000103 
040620 



000104 
103113 



000105 
001 
010151 



. SBTTL BASSRV— • BASE SERVICE ROUTINE 
SASSRVl PSTATE NIDLE2 

HEM IMM,«NIDLE2«INITt777/2» 
MICPC«MICPC+1 

<MOVEiWRMEMlIMMi«NIDLE2«INIT&777/2»> 

LDMA IMM, BASE 
MICPC»MICPC+1 
.If ION IMtt,IMM 
<M0VElU>MARllMMl<BASEI,J77» 

,irr 

<MOVE i LDMAR ! I MM t <BASE» 
,ENDC 



MEMINC IBUS.P0PT1 J READ CSR4 

MICPC»MICPC+i 

<moveiwrmem:ihcmapiibuskporti» 

meminc ibus.port? »pead csr5 

MICPC»MICPC + i 

<M0VE!HRMEM!INCMARJIB0Si<P0BT2» 

MEM IBUS f P0RT4 
MtCPC«HICPC+l 

<move 1 wpmem ! ibus 1 <p0rt4» 

sp ibus,incon,spo 
micpc«micpc+1 
<m0vejspxii8ussinc0n|sp0> 

brwrte imm, 100 
micpc»micpc+1 
<movejwrtebr}imm:<ioo» 

out br, <aandb 1 0imc0n> 

MICPCbMICPC+1 

<M0VE!WR0UTXIBRKAANDB10INC0N» 

OUTPUT IMM,<120I0H0DEM> 
MICPC«MICPC+1 

< MO VE : WROUT 1 IMM !<1 20 1 0M0DEM» 

BRWRTE MEMX,SELB I READ SEL6 

MICPCsMICPC+1 

<MOVEi WRTEBR1 MEMXKSELB>> 



(CLEAR TO MAR SO IT POINTS TO BASE POINT 



(READ INPUT CONTROL CSR 



(CLEAR THE BR 



t CLEAR THE INCONTROL CSR 



f MASK FOP HDX AND DTR 



BR4 RESUME |IF SET RESUME 

MICPC«MICPC+1 

<JUMPlBP4CONKRESUME-INm300O*4>!<RESUME-INITt777/2» 



LOMA IMH,T 

MICPCbMICPC*1 

.IF IDN IMM, IMM 

<M0VElLDMAPiIMMKTS377» 

.IFF 

<MOVE 1 LDMAR } IMM 1 <T» 



(LOAD ADDRESS OF TYPE FIELD 



DVCl 1 

or>cnr 



'P PROTOCOL IMPLEMENTATION 
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000106 
012202 016406 



MEMINC IMM, 6 
MICPC=MICPC+1 

<M0VE1 NRMEM 1 INCMARi IMHJ <6>> 



» WRITE START TYPE TO MEMORY 



000107 
017204 002700 



MEM IMM, 300 

MICPC»MICPC+1 

<M0VE1 WRMEM ! IMM !<300» 



I WRITE SELECT AND FINAL TO MEMORY 



SP BR,DECA,SP1 

MICPC«MICPC+1 

<»nvp I spy ! bp I rivf 1 1 Rpi > 



j TURN OFF INIT MODE 



000 11 1 
017710 000641 



BRWRTE IMP, 241 

MICPC»MICPC*1 

<M0VE1WRTEBP1IMM1<241» 



TSET OK TO SEND, STAPTMODE AND UNNUM PENDING 



OOOl 1 2 
012212 110737 



ALWAYS SA3 
MICPC«MICPC+1 

<JUMPl ALCONDl<SA3-INIT63000»4>t<SA3-INITs777/2» 



000113 
012214 003004 



0001 14 
012216 063070 



01 2222 
01 2274 



012224 
01 227* 



000115 
001 
01OO17 



00011 6 
000743 



000117 
1 1 0455 



010120 
001 
010154 



RESUME I SP IMM, SPA, 4 

MICPC«MICPC+1 
<M0VE!5PXiIMM!SP414> 

SP BR.INCA.SPIO 

MICPCaMICPC+1 

<MOVEiSPXtBRlINCAJSP10> 



;SET UP SP4 FOR COUNTING NPRS 



>SET UNNUMB MESSAGE PENDING TO 



( TRICK TRANSMITTER CODE 
( ADDRESS BASE TABLE ADDRESS 



! SET TMTR STATE TO ENTER TABLE UPDATE 



LOMA IMM, BASE 
MICPCeMICPC+I 
.IF IDN IMM, IMM 
< MOVE I LDMAR 1 IMM i <BASE£377>> 
.IFF 

<MOVE 1 LDMAR J IMM 1 <BASE>> 
, ENDC 

STATE FUDGE 
MICPC«MICPC+1 

<M0VE1 WRTEBP! IMM i <FUDGE-IN I T&777 /?» 

ALWAYS TBO j GO SST UP "XT BITS AND ADRESS OF BASE FOR NPRS 

MICPC=MICPC+1 

<.JlIMpiALCONDl<T80-INITS3000*4>J<T'r*0-INrU7 77 /2>> 

LPM* IMM,I«G10 
"ICPCaMICPC*l 
,IF IDN IMM.TVM 
<MnVEiLnMARn uw !<IMG10&377>> 
, IFF 

< M PVE ! LDM A P ! jvx !<IMG10>> 



SF 



MFV* ; TNCVAR, AH? 

rpc=MTf"Pc + i 



>, SP! 
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BASSRV— - BASE SERVICE ROUTINE 


(12 


012230 


057310 


<M0VE1 SPX! MEMX! INCMARlAORBtSP10> 


( 1 ) 

(11 
( 1 1 


012212 


000122 
057231 


SP MEMX!INCMAR,SELB,SP11 ( RESTORE SPU 
HICPCsMICPC+1 

<HOVE 1 SPX IMEMXi INCMAR I SELB 1 SP 1 1 > 


(1) 

( 1 ) 

(H 


012234 


000123 
057232 


SP MEMXJIHCMAR,SELB S SP12 (RESTORE 3P12 
MICPC«MICPC+1 

<MOVE I SPX I MEMX! ISCHAR 1 SELB 1SP12> 


(1) 
( 1 1 


012236 


000124 
057234 


SP MEMX! INCMAR, SELB, SP1 4 ( RESTORE SP14 
MICPC»MICPC+1 

<MOVE t SPX t MEMX! INCMAR I SELB 1 SP 1 4> 


f 1 ) 

( 1 ) 
( 1 ) 


012240 


000125 
057236 


SP MEMX j INCMAR, SELB, 5Pi 6 ; RESTORE SP16 
MICPC»HICPC+1 

<MOVEI SPX I MEMX1 INCMAR t SELB I SP1 6> 


C 1 ) 

( 1 ) 
( 1 ) 


0122*2 


000126 
043237 


SP MEMX, SELB, SP1 7 | RESTORE SP17 

MICPC«MICPC+1 

<MOVE 1 SPX 1 MEMX 1 SELB i SP1 7> 


( 1 1 
621 

( 1 ) 


012244 
012244 


063170 


SP BP,DECA,SP10 ( TURN OFF UNNUM MESSAGE 

MICPC-MICPC+1 

<MOVElSPX!8PiDECAlSP10> 


( 1 ) 
672 

( I ) 
( 1 ) 
( 1 1 


01 2246 


000130 
063161 


1 ZERO THE BRG 
SP BR,DECA,SP1 (CLEAR INIT MODE 
MICPC=MICPC+1 
<H0VEISPX5BRIDECA1SP1> 


674 
( 1 1 


012250 
012250 


000600 


BRWRTE IMM.200 T SET OK TO SEND 
vrrorssUTrar j.i 

<M0VE1 WRTEBP ! IMM!<200>> 


( 1 1 

C 1 ) 
( 1 1 

r 1 1 


01 2252 
01 22*52 


000132 
1 10737 


ALWAYS SA3 
KICPC»MICPC+1 

<JUMPJALCOND!<SA3-INITS3000»4>l<SA3-INITf;777/2» 
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16-DEC-76 


6?7 








01 2254 




(1 ) 




00O133 


O ) 


01 2254 


060601 


( 1 ) 






fc-;9 




001 


f. 30 


012256 




( ! ) 




0001 34 


( 1 ) 


012256 


103141 


( 1 1 






631 




000 


617 




001 


*33 






6 14 




.100 


635 


01 2260 




( 1 1 




000! 35 


( 1 ) 


017260 


123400 


(11 






636 


012262 




( 1 1 




000136 


( 1 1 


012262 


001620 


(1 ) 






6 37 


012264 




( 1 ) 




000137 


(1) 


012264 


103146 


r 1 1 






639 






6 39 






640 




001 


641 


01 2266 




( 1 1 




0001 40 


( 1 ) 


012266 


100451 


( 1 ) 






64? 




000 


643 


012270 




6 14 




001 


645 






6 46 












P4P 






f (1 






ftSO 






651 






65? 






653 






fi5' 






65* 






656 






*57 






A55 






6S9 






*<-0 






66 1 






hf, 2 




000 


^1 




.101 


*6 4 


01 7270 
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NIDLE2— NO CSR ACTIVITY STATE 

.S8TTL NIDLE2— NO CSR ACTIVITY STATE 
NIDLE2 ( BPWRTE BR,SELAISP1 I READ PORT STATUS WORD 

MICPCeMICPC+1 

<MOVE 1 WRTEBP ! BR J <SELA J SP1» 



PAGE! 0079 



( INTERRUPT PENDING? — BRANCH 



.IF NOF SLOW 
BR4 NIDLE5 
MTCPCsMICPC+1 

<JUMPiBR4C0NJ<NIDLE5-INITS3000#4>t<NIDLE5-INIT&777/2» 



.ENDC 

.IF DF SLOW 
BR4 OUTINT 
.ENDC 

SPBR IBUS,INCON,SP0 
WICPCsMICPC + 1 

<MOVE1SPBRXIIBUS1INCON'SPO> 
BPSHFT 

MICPCertICPC+1 

<«0 VE i SHFTBR 1 WRTEBR! SELB> 



; READ INPUT CONTROL CSR 



J SHIFT IT RIGHT 



I IF RQI SET « BRANCH 



BR4 INHAT1 
MICPC»MICPC+1 

<JUMPJBR4CONl<INHATl»INITt3000«4>l<INWATl-INIT<i777/2» 

(TO PE-READ THE IN CNTRL REGISTER TO AVOID 
J A RACE IN MICRO-P READ/UNIBUS WRITE 

.IF NDF SLOW 
ALWAYS IDLE 
MICPCsMICPC+1 

<JUMPjALCONDl<IDLE-INIT&3000«4>J<IDLE-INIT&7 77/2» 





.ENDC 






NIDLE6: 










.IF DF 


SLOW 




103: 


SPBR 


I BUS, MODEM, SPO 


J READ MODEM CONTROL CSR 




BRWRTE 


BR,AA1SP0 


1 SHIFT IT LEFT 












BPWRTE 


BR,SELAiSP10 


( READ LINE STATUS WORD 




BRSHFT 








BR4 


IDLE 


J START MODE 




BPWRTE 


BP,AA!SP1 


I READ PORT STATUS WORD 




BP! 


IDLE 


(INIT MODE 




BR7 


IDLE 


(DISCONNECT ERROR ALREADY SENT 




SPBR 


IBUS.HAIN.SPO 


I READ THE MAINT REGISTER 




BRWPTE 


BR, ADD { SPO 


(SHIFT LEFT 




BR4 


IDLE 


(LU LOOP -- EXIT 




BRWRTE 


IMM, 100 


(WRITE DISCONNECT ERROR 




SP 


BH,A0RB,SP1 


(FLAG ERROR RECORDED 




ALWAYS 


ERPXX 


(«AKF, A CONTROL OUT 


SETDSPs 


BPWRTE 


1MM,277 


(CLEAR DISCONNECT ERROR FLAG 




ALWAYS 


CI.RTDL 














.If NDF 


sl.n.« 




NTDLE5 I 


p.STATF 


OUTINT 


(SET STATE FOP INTERRUPT PROCESSING 
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DDCHGH.VAC 06-DEC-76 11:34 NIDLE2---NO CSR ACTIVITY STATE 



PASEl OOEC 



( 1 ) 


1 2270 


(?) 




(7) 


"12570 


(2) 




665 


01 2272 


m 




en 


01 2272 


(i) 




666 





000141 
002614 



0O0142 
100451 



MEM IM»,«0UTINT"INlTt777/2» 
MICPC»MICPC+1 

<MOVEJ WRMEMlIMMl«0UTINT-INITS777/2»> 

ilWAYS IDLE 
MICPC«MICPC + 1 

<JUMP[ ALCONDl<IDlE»IHITS3000»4>!<IDLE-INITS777/2» 
,ENDC 



r M ni ddc«p pRntocQL implementation 



DDC«r,u, 


"AC 06-OF.C-78 








669 


012274 




( 1 1 




000143 


1 1 ) 

r ; i 


012274 


123400 


no 


012276 




C 1 1 




0001 44 


( 1 1 


012276 


0*0520 


f t ) 






<i71 


012100 




t 1 1 




000145 


( 1 ) 
f 1 1 


012300 


103550 


672 






67 3 


012302 




( 1 ) 




0O0146 


( 1 ) 


012302 


1 23400 


C 1 ) 






674 


01 7304 




f 1 > 




000147 


f 1 ) 


012304 


103557 


( 1 ) 






675 


012306 




C 1 ) 


01 2306 




f 7) 




000150 


C?) 


012306 


002546 


(?) 






676 


012310 




( 1 ) 




000151 


( 1 ) 


12 310 


060520 


(1 ) 






677 


012312 




( 1 ) 




000152 


( 1 ) 


012312 


1 17460 


( 1 ) 






678 


012314 




(1 ) 


01 2314 




(2) 




0"0153 


(2) 


012314 


002543 


(2) 






679 


12 316 




( 1 1 




000154 


(1 ) 


012316 


000600 


( t ) 






680 


012320 




( 1 ) 




000155 


( 1 ) 


01 2320 


061 300 


( 1 ) 






6S 1 


01 2322 




( 1 ) 




000156 


( 1 ) 


01 2322 


1 "0451 


( 1 ) 






(.a? 






<. a i 


" 17324 




' 1 1 




10 1 57 


' 1 i 


o 1 2 3 2 * 


"116 70 



HACY11 27(1006) 14-DEC-76 UJ44 
INWAIT— hATT FOR PQI TO CLEAR 



.SBTTL IMWAIT— WAIT TOR ROI TO CLEAR 



PAGE I 0081 



INHAITt SPBR IBUS, INCON, SPO 
MICPCsMICPC+1 

< "OVE 1 SPBRX ! IBUS J INCON J SPO> 

BRWRTE BP,<AA1SP0> 

MICPC»MICPC+1 

<M0VE1WRTEBR!BF!<AA1SP0>> 



j READ INPUT CONTROL CSR 



J SHIFT IT LEFT 



t INTERRUPT ENABLE HAS BEEN SET 



BR7 NIDLE3 
MICPC«MICPC+1 

<JUMPlBR7CONJ<NIDLE3-INITS3000»4>l<NIDLF3-INITt,777/2» 



INWATlt SPBR IBUS, INCON, SPO 
MlCPCaMICPC*l 

<M0VE1 SPBRX! IBUS1 INCON J SPO> 



I READ THE INPUT CONTROL CSR 



JPEAOY IN STILL SET 



BR7 INWAT2 
MCPC«MICPC + 1 

<JUMPJBR7C0Nl<IN«AT2-INITS3000#4>S<INWAT2-INIT6777/2» 

NIDLE3 1 PSTATE INWfiTl I UPDATE STATE TO INPUT 

MEM IMM,«INWATl-INITt777/2» 
HICPC«MICPC + 1 

<MOVElWRMEMlIHHl«INttATl-INITS777/2»> 



BRWPTE BR.AAISPO 

MICPC»MICPC+1 

<M0VE1WRTEBRJBRJ<AAISP0» 



! SHIFT CSR LEFT 



BR7 ININT 
MtCPCeMICPC+1 

<JUMpiBP.7CONt<ININT-INITfc3000»4>l<ININT.INITs777/2>> 



PSTATE INWA1T 

MEM IMM,«INMAIT-INITt777/2» 
MICPC»MICPC*1 

<M0VEiWRMEMlIMMJ«INWAIT»INITS.777/2>» 

N IDLE4 ! BRWRTE IMM,200 
UCPC«MICPC + 1 
<t*OVE!WRTEBP:iMMl<200» 



; UPDATE STATE POINTER TO NO INTERRUPT GENERATED 



OUT BR,ADPB!OINCON 
MTCPCsMICPC+l 

<MOVE1«POUTX!BR|<AOPB10TNC(TJ>> 



i SET THE P!>YI 



ALWAYS IDLE 
» ICPC«MICPC+1 

<JU«P! AI J CnND!<IDLE-INITi3 00 r i*4>!<IDLE-IMITS,77 7/2>> 



BWSHFT 

•TCPC=MirPC*l 

< u OVE! SMF T BP J mute BR ! SEL B > 



: SHIFT thf "P 5IG"T 



DMC11 DDC«P PROTOCOL IMPLEMENTATION 
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INWAIT-— WAIT FOR ROI TO CLEAR 



PAGE: 0082 









6W4 




001 


685 






686 




000 


f-97 




001 


638 


012326 




C 1 ) 




000160 


C 1 ) 


012326 


1 03051 


( 1 ) 






639 


012330 




(1 ) 


01 2330 




c a i 




000161 






002563 


(2) 






690 


012332 




(1) 




000162 


(1) 


012332 


100451 


(U 






691 




000 


*92 


017334 




f 1 ) 




000163 


(1! 


012334 


123400 


( 1 ) 






693 


012336 




(15 




000164 


1 1 ) 


ot 2336 


102600 


f 1 ) 






694 


012340 




( 1 ) 




000165 


( 1 ) 


012340 


102172 


(J) 






696 


oi 2342 




C 1 ) 




000166 


C 1 ) 


012342 


001620 


(I) 






69ft 


01 2344 




( t ) 




000167 


( 1 1 


012344 


1 "2574 


( 1 ) 






697 


1 2346 




( 1 ) 


1 2346 




( 2 ) 




000170 


C 2 } 


012346 


2 7 


(2) 






69S 


012350 




( 1 ) 




000171 


( 1 1 


012350 


1"0575 


( 1 ) 






69° 


01 2352 




tn 


01 2352 




(?) 




000172 


(?) 


112352 


002657 


(7) 






7oo 


012354 




(l) 




O00173 


( l ) 


"12354 


1 00575 



JROI SET— GO AWAY 



.IF DF SLOW 
BR4 NIDLE6 
, ENDC 

.IF HDF SLOW 
BR4 IDLE 
MICPC»MICPC + l 

<JUHP16R4C0»l<IDLE-INIT*3000»4>l<IDLE-INIT$.777/2» 



I SET NEXT STATE TO INPUT SERVICE 



PSTATE INSRV 
MEM IMM,«mSRV-INITS777/2» 
MICPCsMICPC+1 

<MOVE!"!PHEM! IMM:«IHSRV-I1«IT£777/2>» 

ALWAYS IDLE 
MICPCaMICPC+1 

<JUHP!ALCONDKIDLE«I»m3000*4>l<IDLE-INIT&777/2» 



.ENDC 

SPBR I8US,INCON,SP0 
MICPCaMICPC+1 

<M0 VE ! SPBRX ! IBUSJ IHCON 1 SPO> 



[ READ THE INPUT CONTROL CSR 



•SENSE OR BASE 



BR1 30$ 
MICPC»MICPC+1 

<JUMPlBRlC0NlO0S-IKIK3000»4>!<30»-INITi777/2» 

BPO 10S jCHTL I 

MICPC«HICPC+1 

<JUMPiBR0CONi<10$-INITt30O0*4>i<iO$-INITS777/2» 



ofssntx j "US* 

MICPC»MICPC+1 
<MOVEl SHFTBP t NRTEBR1 SELB> 

BR1 15$ 
MICPC»HICPC+1 

<JUMP.'BRlCONJ<l5$-INITS3000«4>l<15S-INITi777/2» 

PSTATE TBASPV : TRANSMITTER 

MEM IMM,«TBASRV*INITt777/2» 
MICPC«MICPC+1 

<MQyrj WRMrwj IMMJ«TB*SRV»INIT«.777/2»> 

ALWAYS 20$ 
MICPC»MICPC+1 

<JUMP!ALCONDl<20$-INITt3000*4>!<20$-INITi777/2» 
PSTATE CTLSPV 

MEM IMM,«CTLSRV-INIT&777/2» 
MICPC«MICPC+1 

<M0VEl«RMEMtIMM!«CTLSRV-INI«777/2»> 

ALWAYS 20$ 
MICPCsMICPC+l 

<JUMPlALCONDK20$-INITS3000*4>K20$-INITS777/2» 



i/rr.eUTfT pno TN OH nilT 



Wril PDC1P PROTOCOL IMPLEMENTATION 
06-UEC-76 11:34 



0O0174 
"02721 



OOCKGH, 




( 1 ) 




711 


01 2356 


(1) 


012356 


(2) 




(21 


01 2356 


(?) 




702 


012360 


( 1 ) 




( 1 ) 


01 2360 


(1) 




703 


01 2362 


f 1 ) 




(1) 


012362 


( 1 ) 




704 


01 2364 


( 1 ) 




( 1 ) 


012364 


(1) 




705 


012366 


(11 




d) 


012366 


706 


01 2370 


(1) 


012370 


(2) 




(2) 


012370 


C2) 




707 


012372 


(1) 




( 1 ) 


01237J 


( 1 ) 
70S 


012374 


( 1 ) 




(1 ) 


012374 


(1) 




7 09 


01 2376 


( 1 1 




(1) 




(1) 


01 2376 


(11 




( 1 1 




(1 ) 




(1) 




710 


012400 


(1 ) 




( 1 ) 


01 2400 


( 1 ) 




711 


"1 2402 


(1) 




( 1 ) 


"12402 


( 1 ) 




712 


01 2404 


( 1 ) 




(1 ) 


1 7404 


' 1 ) 




7 1 1 


01 2406 



000175 
O60501 



000176 
1 02201 



000177 
1 00451 



O002O0 
102211 



000201 
002533 



000202 
000500 



000203 
061260 



000204 
001 
Ot0177 
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INWAIT— WAIT FOR ROI TO CLEAR 



PSTATE RBASRV 

MEM IMM,«RBASRV-INITt777/2» 
MICPCaHICPC + 1 

<M0VElWRMEMiIMMl«RBASRV-INIT&777/2»> 



PAGE: 0083 



BRWPTE BP,SELA1SP1 
MICPC«MICPC+1 

<MOVEJWRTEBPtBF!<SELAlSPl» 



(INIT MODE 



j IF INIT MODE--ERPOR 



BRO PROCER 
MICPC=MICPC+1 

<JUMPJBR0CON!<PROCER-INITi3000»4>KPROCER-INITSi77 7/2» 

ALWAYS IDLE 
MICPCaMICPC + 1 

<JUMPlALCONDl<IDLE-INIT43000*4>KIDLE-INIT&777/2» 

BRO INSPV1 j IF BASE— PROCESS 

MICPCaMICPC+1 

<JUMPlBP0CONKINSRVl-INITSi300O«4>l<INSRVl-INITt777/2» 



PROCER: PSTATE NIDLE2 

MEM IMM,«NIDLE2-INITi777/2» 
MICPCaMICPC+1 

<MOVEJWRMEMJ IMMl«NIDLE2-INIT&777/2»> 



fPESET PORT STATUS 



BRWRTE IMM, 100 
MICPCaMICPC+1 
<MOVE1WPTEBR!IMM1<100» 

OUT BP, AANDB10INC0N 

MICPC«MTCPC+1 

<MOVE JWR0UTX1BR1 <AANDB JOINCON>> 

LDMA IMM,«RTHRS+3» 
MICPCoMICPC + 1 
.IF IDN IMM, IMM 

<M0VEJLDMARIIMM!«RTHRS+3>6 377» 
.IFF 

<MOYE!LDMAR: IMMJ«RTHRS + 3>» 
.ENDC 

MEMINC IMM, 2 
MICPCaMICPC+1 

<MOVEi wRMEMl INC MAR I IMM1<2>> 

MEM I"M,0 
MTCPCaMICPC+1 
<«OVE! WRMFMl IMM!<0>> 

OUTPUT «f:«X,SELR!OMODK v 
MICPC = ' J ICPr+l 

<"OVE! WBO'.'T ! MEM XI <SELB ! PMPr , KM» 



[CLEAR INPUT CONTROL CSR 



J ADDRESS ERROR LINK 



;CLFAP HAT& TERMINAL READY 



: Pi 1ST TH£ ERROR 



DMC11 t>nc : 'P PROTOCOL IMPLEMENTATION 
DDCHGt-.MAC 06-OEC-76 11:34 



000210 
112406 114524 



000211 
012410 060601 



000212 
012412 102072 



000213 
012414 100S01 



MACYli 27(1006) 14-DEC-76 16144 
INHAIT---WAIT FOB RQI TO CLEAR 



PAGE 6-18 



PAGE: 0084 



INSRVl! 



MICPCaMICPC+1 

<JUMPiALCONDt<RCEXX-INITl3000*4>l<RCEXX-INIT&777/2» 



BRWRTE BP,SELA!SP1 
MICPC«MICPC+1 

<M0VEIWRTEBPJBR!<SELA1SP1» 



|INIT MODE? 



BRO BASSRV 
MICPOMICPCtl 

<JUMPlBR0CONJ<BASSRV-INITS3O00*4>!<BASSRV-INITS777/2» 

ALWAYS PROCER > N - PROCEDURE ERROR 

HICPCeMICPC+1 

<JUHPIALCONDKPROCEP-INITt3000»4>J<PROCER-INIT&777/2» 



TTll PDCMP PROTOCOL IMPLEMENTATION 
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PASEl 0095 





"AC 0* 


-DEC-76 11134 


OUTINT- 


"SET UP OUTPUT INTERRUPT [RDYO) 


7 1 P 








, SBTTL OUTINT— SET UP OUTPUT INTERRUPT CRDYO] 


7 1 9 


012416 




OUTINT! 




720 




001 




.IF NDF tLOW 


721 


012416 






PSTATE PINT2 


( 1 1 


012416 






MEM IMM,«PIHT2-INITi777/2» 


(2) 




000214 




MICPC»WICPC+1 


(21 


1 2416 


002631 




<MOVElWRHEMlIMMl«PINT2-INITfc777/2»> 


(?) 
722 




000 




.ENDC 


72? 




001 




.IF DF SLOW 


724 








PSTATE OUTWAIT »PORT STATUS TO WAITING FOR OUT 


775 




000 




.ENDC 


72fr 








jCuMpLETICN 




012420 






LDMA IMM, NXTINT I ADDRESS OF NEXT INTERRUPT POINTER 






000215 




MICPCsKICPC+1 






001 




.IF IDN IMM, IMM 




012420 


O10240 




<M0VEILDMAR1 IMM 1<NXTINT1377>> 










, IFF 










< M 0VEILDHAPi IMH|<NXTINT» 






O00 




, ENDC 




012422 






LDMA MEMXr SELB J NEXT INTERRUPT 






Oi)0216 




MICPC»MICPC+1 






001 




.IF IDN MEMX, IMM 










<M0VElLDMARlIMMKSELBt377» 










, IFF 




"1 2422 


050220 




<MOVE t LDMAR 1 MEMX I <SELB» 






000 




.ENDC 




01 2424 






5P IBUS,OCON,SP0 1 READ THE OUTPUT CONTROL CSR 






OO0217 




HICPCbMICPC+1 




012424 


123040 




<*OVEiSPXiI8USiOC0NlSP0> 




012426 






OUT <MEMXtINCMAR>,<A0PB!00CON> >WRITE THE OUT CONTROL CSR 






000220 




MICPC»MICPC+1 




012426 


055302 




<MOVElWPOUTXlMEMXlINCMARl<AClRBtOQCON>> 




012430 






LDMA MEMX, SELB fADOPESS LINK 






000221 




MICPC«MICPC+1 






001 




.IF IDN MEMX, IMM 










<MOVEILDMAP[IMM!<SELB&377>> 










.IFF 




O12430 


OS0220 




<MOVE| LDMAR t MEMX !<SEL8» 






000 




, ENDC 




C12437 






BRWRTE <BP'INCMAR>,<AA!SPO> t KICK PAST LINK STATUS BYTE 






0O0222 




MtCPC«MTCPC+l 




012432 


O74520 




<M0VEIWBTEBP1BR! INCMAR!<AA; SPO>> 










j SHTFT CSPO IMAGE LEFT 










•#**00 10T CHANGE BR UNTIL BR7*»* 




o 1 24 it 






OUT <MFMX!INCMAP>f<SELP!0P0PT1> {WPTTF IV* BYTE OF BA TO CSR 






('"0X2 3 




M ICPC = MirtT + l 






n*5224 




< u OVFI WCfiHTX JMF M X!JNCVAR! <SFl *>, J nprjpT 1 >> 










~"T <"KVX! INCVAP>,<5KLe !OP0»T2> i aPTTF HIGH HYTE OF BA TO CSR 



DMCH DDCP PROTOCOL IMPLEMENTATION 
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OUTINT— SET UP OUTPUT INTERRUPT [RDYOJ 



PAGE: 0086 



1 } 




000224 


1 1 


012436 


055225 


1 ) 






37 


01 2440 




1 ) 




000225 


t ) 


012440 


055227 


1 5 






3H 


012442 




1) 


01 2442 


055226 


1 1 






39 






40 


012444 




i "j 




000227 


l ) 


012444 


103757 


i ) 






41 






42 




001 


4 } 


012446 




1 ) 




000230 


1 ) 


01 2446 


1 00451 


1 } 






44 


012450 




1 ) 


012450 




2) 




000231 


2) 


012450 


002652 


21 






35 




000 


46 




001 


47 






*8 




000 


40 


n 1 2452 




1 ) 




000232 


1 1 




001 


1 5 


H2452 


010240 


1 ) 






1 ) 






1 ) 




000 


1 1 






So 


012454 




1 ) 




000233 


1 •> 


012454 


043220 


1 ) 






51 


012456 




1 ) 




000234 


1 1 


012456 


002642 


1 ) 






S7 


01 2460 




1 1 




000235 


1 ) 


01 7460 


000776 


1 ) 






51 


01 2462 


090236 


1 1 


012462 


060360 


1 ) 






54 


01 2464 





WICPCnMICPC+1 

<MOVE ! WPOUTX i MEMX 1 INCMAR I <SELB J 0P0RT2» 

OUT <MEMXi INCKAR>,<SELB!0P0RT4> 

MICPCaMICPC+1 

<MOVE i HROUTX i MEMX i INCMAR i <3ELB i 0PCRT4» 

OUT <MEMXJINC«AR>,<SELBS0PQRT3> 
MICPC=KICPC#i 

<M0VE1 WROUTX I HEM XI INCMAR 1 <5ELB 1 0POR?3» 



j WRITE HIGH BYTE OF COUNT TO CSR 



I WRITE THE LOW BYTE OF COUNT 



j»»#HERE IS BR7*#* 

BR7 PE1 f INTERRUPT ENABLE IS SET 

WICPC«KICPC+i 

<JUMPJBR7CONJ<PEl»I»ITS3000«4>i<PEl-INITt777/2» 

|GENERAT# AN INTERRUPT 

.IF NDF SLOW 
ALWAYS IDLE 
MICPC*MICPC+1 

<JUHPIALC0ND!<IDLE»INITt3000«4>i<IDLE-INITS777/2» 

PINT2I PSTATE OUTWAIT 

MEM IKW,«0UTWAIT-INIT&777/2» 
MICPCbMICPC+1 

<M0VElWRME«HMMJ«0UTW»IT-INITS777/2>» 
, ENOC 

,IF DF SLOW 

PINT2I 

, ENDC 

LDMA IMH.NXTINT 
MICPCaMICPC+1 
.IF IDN IMM, IMM 
<H0VElLDMAP!lMHl<NXTINTS377» 
,IFF 

<M0VEJLDMAR1IHM1<NXTINT» 
.ENDC 

SP MEMX,SELB,SPO 
MICPCaMICPC+1 
<MOVE ! SPX > MEMX 1 SELB J SPO> 

MEM IMM, INTSTK 

MICPCbMICPC+1 
<MOVEl WPMEN! IMM t <INTSTK» 

BRWRTE IMM,«MMEND-2» 
MICPC=MICPC+1 

<M0VE1 WRTEBR 1 IMM I «MMEND-2»> 

CMP BR.SPO 
MICPCaMICPC+1 
<SUBTCJBRlSP0> 



; ADDRESS NEXT INTERRUPT OUEUE 



I COPY ADDRESS FOR NEXT INT TO SPO 



; ASSUME WRAP AROUND CAS 



I ADDRESS OF LAST INT IN STACK 



J SHOULD WE WRAP 



>YES— BRANCH 



D K 'C 1 

DnrHf 



nPC'-'P PROTOCOL IMPLEMENTATION 
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OUTINT— SET UP OUTPUT INTERRUPT tRDYO] 



PAGE: 0067 



000237 
012464 101642 



000240 
012466 000402 



MICPCaMICPC+1 

<JUMPJZCOND!<5S-INITi3000»4>J<5S«INIT&777/2» 



BRWRTE IMM,2 
MICPC=MICPC+1 
<MOVE I WRTEBR ! IMM I <2» 



, OFFSET FOR NEXT POINTER 



000241 
012470 062100 



000242 
012472 043220 



000243 
001 

012474 010241 



000244 
012476 040360 



MEM BR.ADD1SP0 

MICPC*MICPC+1 

<MOVEiWR«EMIBRt<ADDJSPO» 

SP MEMX, SELB, SPO 

MICPCaMICPC+1 

<MOVE ! SPX ! MEMX 1 SELB1 SP0> 

LDMA IMM, NXTS? 
MICPCbMICPC+1 
,TF IDN IMM, IMM 
<MOVEiLDMARlIMMKNXTSPS377» 
■ IFF 

<MOVEl LDMAR 1 IMM KNXTSP» 
.ENDC 

CMP MEMX,SPO 

MICPC=MICPC+1 

<SUBTCtMEMXlSPO> 



I UPDATE POINTER 



»COPY POINTER TO SPO 



IPICK UP START OF IN QUEUE 



jCOMPARE TO END 



000245 
012500 101647 



| IF EQUAL— CLEAR INT PENDING 



Z 10$ 
MTCPCaMICPC+1 
<JUMP!ZCONDJ<10S-INITi3000»4>!<10S-INIT6777/2» 



000246 
012502 100451 



ALWAYS IDLE 
MICPCaMICPC+1 

< JUMP I ALCOND!<IDLE-INITt3000»4>l<IDLE-INIT6777/2» 



BPWPTE IMM, 357 
M ICPC=MICPC+1 



I MASK TO CLEAR INT PENDING 



000250 
012506 063261 



000251 
017510 100451 



CLPIOLt SP BR, AANDB, SP1 

MICPCoMICPC+1 
<*OVElSPX!BRlAANDBiSPl> 

ALWAYS IDLE 
MICPC=MICPC+1 

<JUMP; At.CONDl<IDLE-INITt30C0»4>!<IDLE-INITt,7 77/2» 



DMC11 DDC*P PROTOCOL IMPLEMENTATION 
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MACYlt 27C1006) J4-DEC-76 16S44 PAGE 6-22 
OUTWAI--WAIT FOR RDYO TO GO AWAY 



PAGE : OOSi 



766 






, SBTTL OUTWAI--WAIT FOR RDYO TO GO AWAY 


767 


012512 




OUTWAIl SPBR IBUS,OCON,SP0 1 READ OUTPUT CONTROL 


(1) 




000252 


MICPC»MICPCtl 


111 
(1) 


012512 


12J440 


<M0VEISPBRXiI8US10C0NlSP0> 






001 


,TF DF SLOW 


769 






BR7 NIDLE6 f RDYO SET --GET OUT 


770 




000 


, ENDC 


771 




001 


.IF NDF SLOW 


772 


012514 




BR7 IDLE 


( 1 ) 




00025 3 


MICPCeMICPC+1 


{ 1 ) 
f 1 ) 


012514 


103451 


<JUMP|BR7CON|<IDL£-INITS3000»4>t<IDLE-INITS777/2» 


77 3 




000 


, ENDC 




012516 




A BRWRTE IMM.100 jCLEAP CONTROL BITS 


(1) 




000254 


w MICPC*KICPC+1 


CI 1 
( 1 1 


012516 


000500 


<M0VE! WRTEBRJ IHMS<100» 


775 


012520 




OUT BRrOOCONi AANDB 


f 1 1 




000255 


MICPCaMICPC+1 


u> 

1 1 1 


012520 


061262 


<MOVE 1 HROUTX 1 BP 1 <OOCOH I AANDB» 


776 


012522 




ALWAYS INS13 


( \ 1 




000256 


MICPC««ICPC+1 


1 1 5 
f 1 ) 


012522 


100671 


<JUMPULCOND!<INS13"I»ITt3000*4>l<INS13-INITs777/2» 



D-'CU DPC>-P PROTOCOL IMPLEMENTATION 
DOr H GH.M»(* 06-DEC-76 11:34 
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16144 PAGE 6-23 



PAGE! 0089 



000257 
017524 173560 



000260 
012526 001620 



000261 
012530 102754 



000262 
Ot2532 002113 



O00263 
012534 060600 



000264 
012536 102273 



000265 
012540 123000 



000266 
012542 000500 



000267 
012544 061260 



000270 
001 

017546 010211 



012550 
01 2550 

000271 
"12550 002513 



I TO SPO 



in 2552 
0] 2552 



.SBTTL CTLSRV—CNTL I SERVICE 
CTLSRV ! 3PBP IBUS,PORT4,SP0 
MICPC=MICPC+1 

<MOVE1SPBRXIIBUSIPORT41SPO> 
BPSHFT 

MICPCeMICPC+1 

<M0VE1 SHFTBP 2 WRTEBRl SELB> 



BR1 HDSEL 
MICPC-MICPC+1 

<JUMP!BRlCONKHDSEL-INITt,3000«4>l<HDSEL-INITSi777/2» 



INS1V: 



t IF SET IS HALF DUPLEX 



OUTPUT IMM,<10010MODEM> 
MICPC=HICPC+1 

<MOVE1WROUT1IMM1<100 JOMODEM>> 

BRWRTE DP,<SELA15P0> 
MICPCbMICPC+1 

<MOVE ! WRTEBP 1 DPKSELA 1 SPO» 



f MASK DTP, IUHN OFF HOX 



jPESTORE THE CNTL WORD 



;IF SET IS BOOT 



BRO CBOOT 
MICPCsHICPC + 1 

<JUMPtBR0CONl<CBO0T"INITS3000*4>KCBOOT-I«T6777/2» 



I ADDRESS PORT STATE 



0O077J 
1 0P451 



SP IBUS,INCON#SPO 
MICPC«MICPC+1 
<M0VEISPX! IBUS1INCON|SPO> 

BRWRTE IMM,100 
MICPCeMICPC+1 
<MOVEI«*PTEBR1IMMJ<100>> 

OUT BP.<AANDB10INC0N> 
MICPC«HICPC+1 

<MOVElWROUTXJBP!<AANDBJOINCnN>> 

LDMA I MM , PRTST 

MICPC=MICPC+1 

,IF IDN I M M ( I M M 

<MOVEl LDM AR ! IMM ! <PRTST& 377 >> 

.IFF 

< MOVE) LDM ARJ IMM! <PRTST» 
. ENDC 



FSTATE NTDLE2 

«EM IMM,«NIDLE2-INIT&777/2» 
y ICPCaMICPC+t 

<"OVE! WPMKMi IMMi<<MlDLE2-I>}lTI»777/2>>> 

si, WAYS IDLF 
MCPCaMJCPC + l 

<IUMp!AICOND!<ir , LF-INITS 30 0»4>:<IPLE-INITi777/2>> 



(BEAD THE INPUT CONTROL CSR 



>ZERO THE BR REGISTER EXCEPT INT ENABLE 



jCLEAP IN CONTROL CSR 



DMC11 DPCMP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 06-OEC-76 11:34 
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CTLSPV— CNTL I SERVICE 



PAGE: 0090 



(!) 
( 1 ) 


012554 


000273 
000600 


MICPC=MICPC+1 
<M0VE1WRTEBR1IMM!<200» 




(1) 
793 
(1) 
C1 1 


012556 
012556 


000274 
063301 


SP BR,A0RB,SP1 

MTCPC«HICPC+1 

<nQVEjSPXiBRiAOPBiSPi> 


j IN PORT STATUS WORD 


! 1 5 
794 
C i 5 
(11 


012560 
012560 


000275 
000604 


BPWPTE IMM, 204 

MICPCaMICPC+1 

<"0VEJWPTEBP!IHMl<204» 


j MASK FOR OK TO SEND 


tn 

795 
(1) 
CI 3 


012562 
01 2562 


0O0276 
063230 


SP BR,SELB,SP10 
MICPCaHICPC+1 

<MO¥E 1 SPX ! BR S 5EL8 8 SP1 0> 


;IH LINE STATUS 


(1) 
796 
( 1 ) 
C 1 1 
f 1 ) 


012564 
012564 


000277 
100665 


ALWAYS INSJ2 
PICPCsMICPC+l 

<JUMPlALCONDJ<INS12-INITS3000»4>KINS12-INITi777/2» 



1 DDC-'P PROTOCOL IMPLEMENTATION 
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«AC 06-OEC-76 11134 


TBASRV- 


-TRANSMITTER BUFFER ADDRESS SERVICE 




7 jq 








. SBTTL TBASRV--TRANSMITTEP BUFFER 


ADDRESS SERVICE 


799 


"1 7566 




TBASRV: 


LDMA IMM, ETC 


1 GET POINTER TO END OF TMT CHAIN 


(11 




000300 




MICPCaMICPC+1 




( 1 ) 




001 




.IF IDN IMM, IMM 




C 1 ) 


01 2566 


010070 




<M0VEILDHARJIMM1<ET«377» 




( 1 1 








.IFF 




( 1 1 








<KGVEiLDHARiIKMi<ETC» 




r 1 1 
( l ) 




000 




.ENDC 




* :in 


O12570 






LDMA MEMX,<SELBlSPXJSPO> 


fFIKD THE LINK 


( 1 1 




000301 




MICPC«MICPC+1 




( 1 } 




001 




.IF IDN MEMX, IMM 




f 1 ) 








<MOVE I LDMAR 1 IMM I <SELB | SPX1 SPO& 37 7» 




( 1 1 








.IFF 




< 1 J 


01 2570 


O53220 




<MOVE1LDMAR!MEHX!<SELB!SPX!SPO» 




( t ) 
< 1 1 




000 




.ENDC 






<'i 2572 






MEMINC IMM.l 


j BUFFER ASSIGNED IN IN LINK FLAGS 


( 1 5 




000302 




VTCPCeMICPC+1 




f 1 1 
( 1 ) 


01 2572 


016*01 




<MQVEJWRMEM1 INCMAR! IMM! <1» 




>>n2 


012574 






BRWRTE <IMMJINCMAR>,TML8 


jPOINT PAST NUMBER FIELD 


( 1 1 




000303 




MTCPCsHICPC+1 




( 1 1 
( 1 ) 


012574 


014543 




<«0VE1 KRTEBR! IMM J INCMARKTML8>> 




S03 










JSET BR FOR ADDITION TO SPO 


P04 


012576 






MEMINC IBUS,P0RT1 




1 1 1 




000304 




MICPC«MICPC+1 




( 1 ) 
( 1 1 


012576 


136500 




<M0VE1WRMEM! INCMAR! IBUSI<P0RT1>> 




S05 


012600 






MEMINC IBUS,PQRT2 




( 1 ) 




000305 




MICPCaMICPC+1 




( 1 1 


01 2600 


1 36520 




<K0VE1WRMEMJ INCMAR JIBUS ! <P0PT2» 




R06 


012602 






MEMINC IBUS.P0RT4 




( 1 ) 




000306 




MCPCsMICPC + 1 




1 1 ) 


012602 


1 36560 




<MOVE! WRMEMi INCMAR 1 IBUS1<P0PT4» 






01 2604 






MEMINC I6US.P0RT3 




( 1 1 




000307 




B ICPC»MICPC+1 




( 1 ) 
( 1 1 


01 2604 


1 36540 




<"10VE1 WRMEM ! INCMAR 1 I BUSK PORT 3 >> 




BOB 


O12606 






L"MA IMM , ETC 




C 1 3 




000310 




MICPC=MTCPC+1 




( 1 1 




001 




.IF IDN IMM, IMM 




C 1 1 


012f,06 


010070 




<«ClVEi LDMAR! I MM ! <ETCi377» 












.IFF 




( 1 ) 








< MOVE ! LDMAR! IMM 1<ETC» 




( 1 1 




000 




. ENDC 






012MO 






"FM I W M,TML1 


! ASSUME QUEUE WRAP AROUND 


( 1 1 




00031 1 




«TCPC=MTCPC+1 




( ' 1 

( 1 ) 


01 ?M0 


002 171 




<*-nvE!MPMFM! IMM 1 <TML 1 >> 




1 


01 26 1 ? 






C".P t»!-,SFO 


• FNfi nF CHAIN? 
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017612 
012614 
01261 4 
Ot2616 
012616 
012620 
012620 
017622 
012622 
017624 
012624 
012626 
012626 



<PUBTC!BR!SPO> 



0O0313 
101716 



000314 
000406 



000315 
062400 



000316 
000402 



O0O317 
063310 



000320 
100665 



Z 10S 
M1CPOMICPC + 1 

<JU¥P:ZCCWbl<i08-INITS3000*4>l<10S"INITS777/2» 



I IF YES--BPANCH 



BRWRTE IMM,6 
MICPC»HICPC+1 
<HOVE I WRTEBP I IHM 1<6» 

MEM BR,AD01SP0 

MICPCaMICPC+i 

<"OVE 1 WRMEM J BP KADD1 SPO>> 

BRWRTE IMM, 2 
HICPCbMICPC+1 
<H0VE1«PTEBR1IMMJ<2» 

SP BR,A0RB,5P10 
MTCPC«MICPC*1 
<vnVEJSPXlBRl A0RBiSP10> 



(QUEUE ENTRY LENGTH 



j UPDATE THE END POINTER IN MEMORY 



> NUMBERED MSG PENDING MASK 



; UPDATE LINE STATUS 



ALWAYS INS12 
MICPCeMICPC + 1 

<JUHPlALC0NDi<INS12-INITH000«4>KINS12-INITS777/2>> 



DMC11 !)[>CMP PROTOCOL IMPLEMENTATION 
DDCHGH.WAC 06-DEC-76 1H34 



S 1 fi 

"JO 012630 



000321 
001 

012630 010023 



870 012632 



012632 

012634 
012634 
017636 
012636 
012640 
012640 
012642 
012642 
012644 
012644 

012646 



01 7652 
<>1 26S7 



000322 
001 



053770 

000 



000323 
016401 



000324 
136500 



000325 
136520 



000326 
136560 



000327 
136540 



OO033O 
001 

012646 O10023 



000131 
012650 002474 



> o 3 3 7 
>'<0 1h? 



MACYll 27C1006) 14-DEC-76 16144 PAGE 6-27 
RBASRV—RECEIVE BUFFER ADDRESS SERVICE 

.SBTTL RBASRV—RECEIVE BUFFER ADDRESS SERVICE 
FBASRVr LDMA IMM.ERC ; ADDRES END OF RECEIVE CHAIW 

MTCPC-HICPC+1 
.IF IDN I MM, IMM 
<MOVElLDMAR!IMM{<eRC&377» 
.IFF 

<MOVE|LDHAFiIMM!<ERC» 
,ENDC 



PAGE! 0093 



LDMA MEMX,<SELB!SPXJSPO> 

MTCPC«MICPC+1 

.IF IDN MEMX, IMM 

<M0VE!LDMAR1 IMM I <SEt,B 1 SP* I SPOS 37 7>> 
. IFF 

<MOVEILDMAR!MEMXKSELBISPX1SPO» 
.EMDC 

MEMINC IMM.l 
MICPC»MICPC+1 

< MOVE! WRMEM 1 INC MAR 1 IMM | <!>> 

MEMINC IBUS,PORTl 
MICPC«MICPC+1 

<MOVEI WRMEM ! INCMAP ! IBUS KP0PT1 >> 

MEMINC IBUS.P0RT2 
MICPCbMICPC+1 

<MOVEJWRMEM!INCMARt IBUSi<P0PT2» 

MEMINC IBU5.P0RT4 
MICPC«MICPC*1 

<M0VEJWRMEM1INCMAR|IBUSKP0RT4» 

MEMINC IBUS,P0RT3 
MICPC«MICPC+1 

<M0VE1WRMEM1INCMARIIBUSKP0RT3» 

IIJlNOTE INVERTED ORDER OF PORT 3 AN 

LDMA IMM.ERC 

MICPC»MICPC+1 

.IF IDN IMM, IMM 

<MOVE 1LDMAR 1 IMM 1 <ERCt 377>> 

.IFF 

<"0VE1LDMAR! IMM!<EPC>> 
.ENDC 



(GET THE POINTER TO LINK 



«FM IMM.RCL1 

*ICPC»MICPC*t 

<wrtVF! WRMEM j IMM !<PCL1» 

PPWPTF I»M,PCI.7 
"TCPC = "ICPC*1 
<«nVFi»PTF1>P! r v ''!<PCL7>> 



r ASSUME WRAP AR3UVD CASE 



*f t Aor'pps'5 nr Evn t» cahin area 



'C* KO? FRO 



DHCii OOC«P PROTOCOL rMPTjEMENTATIOM 
DDCHGH.MAC 06-DEC-76 11:34 
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ct) 


012654 


060360 


<SU3TC1BRISP0> 




CI 1 
831 

cn 


012656 
012656 


000334 
101665 


Z INS12 J IF EQUAL BRANCH 
MICPC=HICPC+1 

<JUWPlZCOND!<INS12-INIT63000«4>i<IN5i2-INIT&777/2» 


CD 
83? 
f 1 5 
CI ) 
CI ) 


012660 
012660 


000335 
000*05 


BRWRTE IKM.5 
HICPCsHICPC*! 
<H0VE! WRTEBP ! IM* 1 <5» 


(CALCULATE ADDRESS OF NEXT LINK 


833 

cn 


012662 
012662 


00336 
062400 


men br,addisp0 
<move!wrmemibri<add:spo» 


1 


CI) 
634 
CI) 
CI) 


012664 
0126(>4 


000337 
100665 


ALWAYS INS12 tEXIT 
HICPC»MICPC*1 

<JUHPJ ALCONDi<INS12-INITS3000»4>KINS12-INITs777/2» 


cn 

835 
CI) 
CD 


012666 
012666 


000 340 
000717 


RAH BRWRTE IMH.317 
MICPCaHICPC+1 
<MOVE!WPTEBP2IHMK317» 


1 MASK TO CLEAR START MODE AND CLR ACTIVE 


CI) 
836 

CD 


012670 
012670 


000341 
063670 


SPBR BR,AANDB,SP10 
MICPC*MICPC+1 

<M0VEISPBRX!BPJAANDB1SP10> 


; CLEAR BIT IN LINE STATUS WORD 


CI) 
837 
CI) 
CI ) 


012672 
012672 


000342 
000400 


PA3| BRHRTE IMM,0 
HICPCsMICPC+1 
<MOVEIWRTEBRJIMM!<0» 


{CLEAR BR 


CI) 

838 

cn 

Cl) 


012674 
012674 


000343 
063233 


SP BR,SELB,SP13 

MICPCaMICPC+l 

<M0VE 1 SPXl BP 1 SELB I SP1 3> 


|5ET SUMS MESSAGE TYPE I" SPJi 


cn 

839 
C 1 ) 
C i ) 
840 

cn 
cn 

C 1) 


01 267h 

1267 6 
0) 2700 

01 2700 


000344 
0004 24 

00034S 
100450 


STATE RCVB (CHANGE RECEIVE STATE POINTER TO STATE B 
MICPCbMICPC+1 

<M0VElWRTE8R!IM«!<RCVB»INITK777/2» 

ALWAYS REX IT 

MICPC=«ICPC+1 

<JU*P1 ALCOND!<REXIT-INITS3000»4>!<REXIT-INIT&777/2» 


64 i 
842 
841 

c n 
tn 


01270? 
012702 


001 

00 34^ 
06 05 30 


S 

,IF NDF SLOW 
ACKl BRWRTE BR,AA!SP10 
MICPCsHICPC+1 

<HOVE1WRTEBP1BPKAAJSP10» 


1 READ LINE STATUS SHIFTING LEFT 


c i ) 

8 41 

cn 
cn 


o 1 2 7 4 
012704 


000147 
103351 


BR4 S3 
HICPCcMICPC+1 

<JUMPiBR4CON!<5S-INITt3000*4> 


;IF START RECD— CLEAR START MODE 
<5S-IHIT&777/2» 


C 1 1 
845 
C 1 ^ 

cn 


01 2706 
01 270f. 


000350 
100451 


ALWAYS IDLE 
HICPC*HICPC+1 

<JUMPJ ALC0ND!<IDLE-IIJITt3000»4>!<IDLE-INIT£777/2» 


C 1 ) 
846 


• M 2710 




5SJ BRKPTE IMM,327 


SCLEAR START MODE 



DMC11 OOCMP PROTOCOL IMPLEMENTATION 
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PAGE: 0095 



000351 
012710 000727 



«ICPC»MICPC+1 
<HOVE!WRTEBR!IMM!<327» 



00015? 
012712 063270 



SP BR, AANDB.SP10 

MICPC»MCPC + 1 
<M0VEISPX1BR1AA»DBISP10> 



»IN LINE STATUS 



000353 
012714 104507 



ALWAYS RD5 
MICPC«MICPC+1 

<JUMP!ALCOND!<RD5-INITt3000»4>J<RD5-INITi777/2» 



,ENDC 



DMClt riDC^P PROTOCOL IMPLEMENTATION 
DDCHCH.>'»C 06-0EC-76 UI34 
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PAGE: 0096 



851 


012716 


(1 1 
( 1 ) 


01 2716 


852 


012720 


(11 
( 1 ) 


0127 21 


( 1 1 
85 3 


01 2722 


(1) 




( 1 ) 


012722 


(11 




85? 


012724 


( 1 1 


012724 


856 


01 2726 


( 1 ) 


012726 


tt ) 


0127 30 


( 1 > 
( 1 1 


"12730 


( 1 ) 
85*! 




850 


012732 


CI ? 
C 1 5 


012712 


C 1 ) 
860 




861 








861 




863 




P6S 


012734 


( 1 1 
( 1 1 
( I ) 


o 1 27 3 4 


( 1 1 




Rh7 


0127 36 


( 1 1 


017736 


( 1 ) 
of a 


11 2740 


1 1 1 
C 1 l 


012740 


C 1 ) 
8*^ 


012742 


( ' 1 


012742 


( 1 l 

07o 


112744 



HDSEL I 



000357 
000700 



000360 
123220 



000361 
061311 



000362 
100451 



000 
001 



000363 
001 
002722 



000 166 
120*20 



ACLOWj 



IHD MASK TO BR 



I UPDATE PORT STATUS WORD 



BRWRTE IHM.lOO 
MICPC«MKPC + 1 
<MOVEJWRTEBPiIMM!<100» 

SP BR,AORB,SP10 

MICPOMICPC+1 

<MOVE S SPX ! BP i AORB i SP1 0> 



ALWAYS INS11 
WICPCbHICPC+1 

<JUMP| ALCOND !<INSll-INITt3000M>J<INSll-INm777/2» 



BRWRTE IMM,300 
HICPCaWXCPC+1 

<MOVEJWRTEBP!IMMl<300» 

sp ibus,ubbr,sp0 

micpc«micpc+i 

<m0ve1spxiibusjubbrjsp0> 

OUT BP , <AORP ! OBR> 

MICPC«MICPC+t 

<MOVE ! WROUTX I BP ! < AORB J OBR» 



I MASK FOR INTERUPT AND VECTOR THROUGH X84 



I READ BR CONTROL REG 



j INTERRUPT 



,IF NDF SLOW 
ALWAYS IDLE 
MICPC«MICPC+1 

<JUMP! ALCOND I <IDLE-INITt3000»4>!<IDLE-INITS777/2» 



.ENDC 
.IF OF 
ALWAYS 
, ENDC 



SLOW 
PINT2 



MEMADR EN6 
MICPC»MICPC*1 
.IF B 

<M0VElWRMEMKEM6«INITi777/2» 
, IFF 

<MOVElWRMEMi !<EM6-INITS777/2» 
.ENDC 

BRWRTE IMM,2 
MICPC»«ICPC + 1 
<M0VHIWPTEBPIIMMK2» 

OUT BR,<SELB10BR> 
HICPCbMICPC+1 

<HOVE I WPOUTX t BR 1 <SELB 1 OBR» 

BPWRTE IBUS.UBBR 
MICPC"HICPC+1 
<M0VE1HRTEBP! IBUSKUBBR» 



j FALL INTO ACLOW 
(CAUSE AN AC LOW 



(WAIT FOR IT TO COMPLETE 



DMCll PDCMP PROTOCOL IMPLEMENTATION 



DDCHr"-»'."AC 



06-DEC-76 11134 
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000367 
012741 112766 



000370 
012746 154620 



000371 
012750 120620 



00037*! 
012752 103363 



000373 
012754 114725 



000374 
012756 120600 



000375 
012760 102051 



000376 
01276? 114752 



000377 
012764 OOOOOO 



MICPC»MICPC*1 

<JUMP!BRlC0Nl<5S-INIT43000*4>l<5»-INITS777/2>> 

, ALWAY MEM X, SELB, PACE3 
MICPC»MICPC+1 

< JUMP! ALCOND t MEMX 1 SELB! PAGE3> 



CKTIMEi BRWPTE IBUS,UBBR 
MICPC«MICPC+1 
<>«OVE!WPTEBRt IBUSt<UBBR» 



) READ BR CONTROL REG 



BR4 HALTED 

MICPCaKICPCH 

<JUMpjBP4CONl<HALTED-INITS3000»4>!<HALTED-INIT6777/2>> 

ALWAYS EMi 
MICPC«MICPC+1 

< JUMP J ALCOND !<EMl-INITS3000»4>l<EMl-INIT&777/2» 



TBUll BRWRTE IBUS,NPR 
MICPCaMICPC+1 
<M0VEIWRTEBP1IBUSJ<NPR» 

BRO IDLE 
MTCPC*MICPC*1 

<JUMP!BR0CONKIDLE"INIT5.3000»4>t<IDLE-INIT«1777/2>> 

ALWAYS ECJ 
WICPC«MICFC+1 

< JUMP J ALCOND KEC2-INITS3000*4>l<EC2-INITS777/2» 

SZEPO 

»'ICPC«MICPC + 1 

OOQOOO 
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KACYii 27C1006) 14-DEC-76 16i44 PAGE 6=32 
RBASRV--RECEIVE BUFFER ADDRESS SERVICE 



PAGEl 0098 



R82 




012766 


•"33 




000377 


»84 






9B5 






= S6 

P 37 






88<? 


01 2766 




f 1 ) 




0«'0400 


(1) 


01 ?766 


023200 


( 1 1 






f»89 


012770 




( ' 1 




000401 


(n 


012770 


060601 


( 1 1 






BQO 


012772 




(n 




000402 


f i ) 


012772 


106012 


( i ) 






991 


012774 




C 1 ) 




000403 


( 1 ) 


012774 


107412 


( i ) 






S9J 


012776 




C 1 1 




000404 


C1 ) 


01 2776 


0006CM 


( 1 ) 






<* a 3 


01 '000 




C 1 ) 




000405 


C 1 ) 


01 3000 


060360 


c 1 1 






C94 


01 3002 




C1 ) 




000406 


f 1 1 


01 3002 


1 01740 


( 1 1 






B9J 


01 3004 








0OQ407 


(1) 


'U 3004 


00040S 


( 1 1 






S9J. 


11 3006 








000410 


C 1 1 


01 3006 


060360 


( 1 5 






8<n 


013010 




f 1 5 




000411 


f 1 ) 


01 3010 


105422 


( ! ) 
S9s 


01 3012 




( 1 1 




0O0412 


cn 


013012 


000620 


in 


01 3014 




1 1 1 




000413 


' i ) 


013014 


060360 


( 1 i 






aon 


013016 




( 1 ) 




000414 



,=INIT+1000 
MICPC»377 

.SBTTL RCVA— ROUTINE TO HANDLE FIRST DDCMP CHARACTER 
i ENTERED FROM IDLE LOOP 

J DETERMINES IF MESSAGE TYPE IS NUMBERED, UNNUMBERED OR BOOT 
I SETS UP APPOPRIATE STATES FOR REST OF MESSAGE, 



SP I8US.RCVD1T.SP0 
MICPC«HICPC*1 

<MOVEiSPX!IBUSiRCVDATtSP0> 

BRWRTE BR.SELA1SP1 

MTCPC«SIC?C+S 

<MOVE J WRTEBP 1 BR 1 <SELA 1 3P1» 



BRO 5$ 
MICPCaMICPC+i 

<JUMP|BR0CONi<5*-INITS3O00»4>l<5S-I!IIT4777/2» 



I READ RECEIVE CHARACTER TO SPO 



I READ PORT STATUS WORD 



fIF INIT MODE— ONLY BOOT OK 



BR7 5$ 
MICPC"MICPC+1 

<JUMPlBR7CONi<58-INITt3000*4>l<5S-INITK777/2» 



5 IF BOOT MODE— ONLY BOOT OK 



BRWRTE IMM,20i 

,MTCPC»MICPC*1 

<MOVEJWRTEBRJIMMJ<201» 

CMP BR, SPO 

MICPC=KICPC+1 

<SUBTCIBRJSPO> 



jSOH TO BR 



j COMPARE BR TO SPO 



J IF LQUAb*AO DIJI-DCKCU n&OOMVE. 



Z RA1 

MICPC»MICPCtl 

<JUMP!ZCONDKRAl-INITS3000*4>UPAl-INIT&777/2>> 



BRWRTE IMM,5 
MICPC«KICPC+1 
<MOVE 1 WPTEBR ! IKH l<5» 

CMP BR, SPO 

MICPCsMICPC+1 

<SUBTC1BRISP0> 



jENQ TO BP 



jCOMPARE ENS TO SPO 



Z RA2 
MICPC«MICPC+1 

<JUMP!ZCONDI<RA2»INITS3000«4>t<RA2-INIT&777/2» 



>IF EOUAL-IS UNNUMBERED MESSAGE 



BRWRTE IMM,220 

MICPC»MICPC+1 

<MOVE I WRTEBP !IMMJ<220» 

CMP BP, SPO 

MICPCaMICPC+1 

<SUBTC1BR1SP0> 

Z BOOT 
MICPC«MICPC + l 



jDLE TO BR 



f COMPARE DLF. TO SPO 



;IF EQUAL IS ROOT 



DMCM OOC-'O PROTOCOL IMPLEMENTATION 
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( 1 ) 


01 3016 


105756 


C 1 ) 






"H 


01 3020 




f 1 1 




000415 






00J212 


( 1 5 






9(,? 






003 


01 3022 




f 1 1 




000416 


C 1 ) 


01 3"22 


000757 


( 1 1 






0^4 


"1 3024 




( 1 ) 




00041 7 


( 1 > 


01 3024 


063270 


f 1 ) 






90S 




001 


906 






907 




000 


90? 




001 


909 


013026 




C 1 ) 




000420 


( 1 1 


013026 


000400 


910 


01 3030 




(1 1 




000421 


(1) 


01 303O 


100450 


( 1 1 






91 1 




000 


012 

( ! ) 


013032 


O00422 


1 1 1 


01 3032 


0O0665 


'1 3 




001 


t>U 


013034 




C ) ) 




000423 


( 1 1 


01 3034 


100450 


( 1 1 










000 


916 




001 


91 7 






91 1! 






PI 9 




000 



MACY11 27C1006) 14-DEC-76 16s44 PAGE 6-33 
RCVA — ROUTINE TO HANDLE FIRST DDCMP CHARACTER 

<JUMPJZCONDJ<BOOT-INIT63000*4>l<BOOT-INITS777/2» 

FLUSHJ OUTPUT IMM , <200 I ORCVCO> jFLUSH INPUT SILO 

MICPC=MICPC+1 

< M OVE!WRQUT] IMM ! <20Q 1 ORG VCO» 



PAGE: 0099 



5 CLOW ORDER BITS READ ONLY) 
J MASK TO CLEAR—CLEAR ACTIVE 



J IN LINE STATUS WORD 



BRWRTE IMM, 357 

MICPC=MICPC+1 

<M0VEJWRTEBRHMM1<357» 

SP BR, AANDB, SP1 

MICPCaMICPC+1 

<MQVE1SPX!BRJAANDBISP10> 



,IF DF SLOW 
ALWAYS RM1 
,ENDC 

.IF NDF SLOW 
STATE RCVA 

MtCPCaMICPC+1 

<M0VElWRTEBRiIHHKRCVA-INITS777/2» 

ALWAYS REXIT 

MICPC=MICPC*1 

<JUMP1 ALCONDKREXIT-INIT(.3000»4>KREXIT-INITi777/2» 



I SET STATE TO RCVA AND RETURN TO IDLE 



; CHANGE RECEIVE STATE TO I 
?/2» 



.ENDC 

STATE RCVI 
MICPC*MICPC+1 

<*OVEi WRTEBRi IMMKRCVI-INIT&71 
,IF NDF SLOW 
ALWAYS REXIT 
MICPCsMICPC+1 

<JUMP1 ALC0NDI<PEXIT-INITt3000*4>KREXIT-INIT5,777/2» 

a ENDC 

.IF DF SLOW 

SP BR,SELB,SP3 

ALWAYS IDLE 

.ENDC 
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RCVB--FPUTIN ! E TO HANDLE FIRST CHARACTER OF COUNT FIELD 



PAGE I 0130 









9 2 2 






3 






09"! 












fit 










Ail f\ A A 


C 1 / 




073204 


( 1 ) 






??I 


(M JU4U 




CI? 




_ 

0004 25 


(11 




001 


( 1 ) 






' 1 \ 






( 1 ) 


01 3040 


070214 


( 1 1 




000 


( 1 ) 






°28 


013042 




( 1 i 




IH' U * ZD 


( 1 ) 


013042 


0*4620 


( 1 ) 






•929 


01 3044 








17 V U *• / J 


r 1 i 




1 06041 


';' 








^ 1 3046 




U l 






( 1 ) 


1 3046 


06 060 1 


C 1 ) 








1 3050 








i"JU*j 1 


! i 




J 07437 








9 3 2 


01 3052 




( ! 1 




° nfti 








r 1 1 


3052 


010151 


( 1 ) 






( I ) 










00 


r 1 ) 






<J33 


013054 




( 1 1 




0004 33 


' J 


■ 


016402 














1 




000434 


( 1 ) 


1 3056 


002710 


£ 1 1 
)35 


"13060 




f 1 1 




000435 


(1 ) 




001 


( 1 ) 


1 3060 


010012 


r i ) 






r 1 1 






( i ) 




000 



, SBTTL RCVB— ROUTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 
; ENTERED FROM IDLE LOOP 

j STORES COUNT FIELD AND SETS UP RCVC AS NEXT STATE 



SP IBUS,RCVDAT,SP4 
MICPC»MICPC+1 

<H0VF.1SPX!IBUSIRCVDATJSP4> 

LDMA BR,<SELA1SP14> 

MICPC-MICPC+l 

.IF IDN BR, IMM 

<MQVEt LDMAR ! IMMl <SELA J SP1 41i377>> 
.IFF 

<M0VE1 LDMAR ! BR ! <SELA I SP1 4» 
• ENDC 

BRWRTE MEMX, INCMAR1SELB 
WICPC=»ICPC+1 

<MOVE i WPTE8R1 MEMX l< INCMAR 2 SELB>> 



j READ CHARACTER TO SP4 



BRO RBI 
MICPC»MICPC+1 

<JUMPJBP0CONI<RBi-INIT63000*4>l<RBl-INIT&777/2» 



(LOAD MAR WITH ADDRESS OF CURRENT BA 



} READ FLAGS BYTE 



jRECV BUFFER ASSIGNED— CONTINUE 



BRWRTF BB.SELAISPI 
HICPCsMICPC+1 

<M0VE!*PTEBRlBRt<3ELA13Pl» 



t READ STATUS BYTE 



I MAINT MODE 



BR7 RB3 
MICPCcMICPC+1 

<JUMPiBP7CONKPB3-INIT43000»4>i<RB3-INITS,777/2» 



LDMA IMM,T 

MICPC"MICPC+1 

•IF ION IMM, IMM 

<NOVE! LDMAR! IMMl <Tfc377» 

, IFF 

<MOVE ! LDMAR 1 IMM J <T» 
.ENDC 

MEM INC IMM, 2 
MICPCcMICPC + 1 

<MOVE 1 WRMEM t INCMAR I IMM 1<2» 

MEM IMM, 310 

MICPCaMICPC+1 

<MOVE! WRMEM! IMM K3J0» 

LDMA IMM,NTLS 

MICPCaMICPC+1 

,IF IDN IMM, IMM 

< MOVE! LDMAR! IMM ! <NTLSS377>> 

.IFF 

<MOVEi LDMAR! IMM |<NTLS» 
.ENDC 



fERROR— LOAD TYPE FIELD ADDRESS IN MAR 



) LOAD NAK TYPE 



( LOAD SUB-TYPE "0 BUFFERS 



rup PROTOCOL IMPLEMENTATION 
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000436 
1"4552 





war 


( 1 ) 

936 


" 13062 


( 1 ) 
( 1 ) 
f t 1 


01 3062 


■537 


1 3064 


( 1 1 
f 1 ) 


01 3064 


( 1 ) 
0?fl 


01 3066 


( 1 ) 
( 1 1 


01 3066 


939 

( 1 ) 


0! 3070 


( t 1 


01 3070 


040 


0! 307? 


( 1 1 
( 1 1 


013072 


C t ) 
^41 


111 3074 


( 1 ) 
( 1 1 


01 3074 


( 1 ) 
94? 


01 3076 


( 1 1 
( 1 ) 


01 3076 


( 1 ) 
943 


01 3100 


< 1 1 
( 1 1 


01 3100 


( 1 1 
944 


013102 


( ' ) 
( 1 ) 


01 31 02 


r 1 1 
045 
( 1 1 


01 3104 


c 1 ) 

f n 


01 3104 


946 
1 1 ) 


01 M06 


( 1 ) 


11 3106 


( 1 ) 
<)4 7 




04R 




040 


i'lMl" 


C 1 ) 




( 1 1 




( 1 ) 




■5 5 


■mil 2 


( 1 1 




f 1 ) 


ill 31 1 2 


f 1 1 




«■) i 


'5 3114 
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RCVB--90UTINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 



PAGE ! 0101 



OO0437 
000404 



0O044O 
Of.3301 



0O0441 
000461 



000442 
063223 



000443 
056226 



000444 
056227 



000445 
123220 



000446 
000501 



000447 
063260 



000450 
003305 



T'0452 
■>Ol%20 



RBI ! 
RBOl 



I BRANCH TO SE*D NAK ROUTINE 



ALWAYS RH5 
MICPCbMICPC+1 

<JUMP1 ALCONDKRH5-INITS3000*4>!<RH5-INIT5i777/2>> 



BRWRTE IHM,4 
MICPCsMICPC+l 

<move!hrtebpj imm!<4» 

sp br,a0rb,sp1 

micpc»micpc+1 

<move!spx!br:aorb;spi> 



STATE RCVC 
MICPC=MICPC+1 

<MOVE!WRTEBP!IMM!<RCVC-INIT&777/2» 
SP BR,SELB,SP3 
MICPCcMICPC+1 
<MOVE!5PX!BPJSELB|SP3> 

OUTPUT <MEMX!INCMAR>,<SELB!0BA1> 
MICPC=MICPC+1 

<MOVE!WROUTiMEMXlINCMAR!<SELB!OBAl>> 



! MASK FOR NO BUFFER AVAILABLE 



;SET THE FLAG 



jOUTPUT LOW ORDER BYTE OF ADDRESS 



OUTPUT MEMX! INCMAR, <SELB10BA2> I OUTPUT HIGH BYTE OF ADDRESS 
MICPC=MICPC+1 

< MOVE ! WP0UT1 MEMX! INCMAR K5ELB 1 0BA2>> 



SP IBUS,UBBR,SPO 

MICPC»MICPC+1 

<MOVE!SPX1IBUS!UBBR|SPO> 

BRWRTE IMM, 101 

MICPC«MICPC*1 

<MOVE I WRTEBR 1 IMM1<101>> 

SP BR, AANDB, SPO 

MTCPC=MICPC+1 
<MOVE!SPX!BR! AANDBlSPO> 

SP IMM,300,SP5 

*ICPC=MICPC+1 

<MOVE!SPX!IMM>300iSP5> 



PRWRTK MEMX, AANDB 1SP5 
*ICPC»MJCPC*1 

<«OVF! WRTFBRIMFMXKAANPP! SPS>> 
H«SHFT 

*tCPC=*TCPC»l 
<«'.IVE!S«FTF'R! KPTE»P!SFl B > 

fRSHFT 

w tcpc = v ' T r p r ♦ 1 



I READ THE BUS REQ REGISTER 



I MASK OFF ALL BUT NXM AND VEC4 BITS 



(AND SAVE I N SPO 



<ASK TO ISOLATE EX, MEM BITS 



J NOTE THIS REALLY WRITES A 30b faUT THE 

J5 GETS SHIFTED OUT 

j V ASK ALL BUT EX, MEM BITS 



INTO THE CORRECT POSITION 
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RCyB--?Ol!TINE TO HANDLE FIRST CHARACTER OF COUNT FIELD 



PAGE: 0102 



tn 


13114 


001620 


<M0 VE ! SHFTSR t WRTEBR 1 SELB> 


( 1 ) 

95? 


013116 




8RSHFT 


( 1 ) 




0O0454 


MICPC=MICPC+1 




013116 


n°1620 


< MOVE! SHFTBR! WRTEBR I SELB> 


( 1 ) 
"553 


013120 




BRSHFT 


( 1 1 




000455 


HICPC»MICPC+1 




0T312O 


001620 


<MOVE! SHFTBR > WRTEBR! SELB> 


Cll 
954 


01 3122 




OUT BR,A0PB10BP. J WRITE EX MEM 


C t ) 




000456 


HICPC«MICPC+1 




0! 3122 




<"OVE! WROUTX!BP!<AORB!OBR>> 


(11 
955 


01 3124 




ALWAYS IDLE 


( 1 ) 




010457 


MICPC»MICPC+1 


(1) 


013124 


100451 


<JUHPULCOND:<IDLE-IHI«3000*4>l<IDLE-INITli777/2» 


( 1 ) 
956 


01 3126 




RB2: ALWAYS 12 


( 1 ) 




000460 


MICPC»MICPC+1 


(1) 
( 1 ) 


013126 


100456 


<JUMPlALCONDKI2-INIT63000»4>J<I2-INITt777/2» 
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9S9 

960 
961 
^62 
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RCVC—ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINAL 



PAGE: 0103 



963 



01 3130 



064 
965 

967 

96B 013130 



000 
001 



0O0461 
013130 073205 



00 462 
013132 000600 



000463 
013134 060665 



000464 
013136 05 3310 



000465 
002 

013140 010167 



.SBTTL RCVC — ROUTINE TO HANDLE SECOND CHARACTER OF COUNT FIELD, SELECT AND FINA 

; ENTERED FROM IDLE LOOP 

j INTERPRETS SELECT AND FINAL 

JCHECKS FOR COUNT TOO LARGE 

I 



,IF DF SLOW 
ALWAYS SELQSY 
.ENDC 

.IF NDF SLOW 

SP IBUS,RCVDAT,SP5 

MICPCoMICPC+1 

<M0VEJSPX1IBUS!RCVDAT!SP5> 

BRWRTE IMM,200 

MICPC»MICPC+1 

<MOVEIWRTEBRIIMM1<200» 

BRWRTE BR ? AANDB ! SP5 
MICPC«MICPC+1 

< MOVE I WRTEBR 1 BR! <AANDB1 SP5>> 

SP BR,A0RB,SP10 
MICPC=MICPC+1 
<MOVE!SPXlBR! A0RB1SP10> 

OOMA IMM,BC 

MICPC»MICPC+1 

.IF IDN Imm.IMM 

<M0VEILDMAR1IMM!<BCS377>> 

.IFF 

<*0VE1LDMAP! IMMJ<BC» 
. ENDC 



("CALL" SELECT/QSYNC SUBROUTINE 
J GET CHARACTER 

; SEPARATE SELECT BIT FROM COUNT 



J LOAD MAR TO BYTE COUNT 



000466 
013142 076604 



000467 
013144 076605 



010170 
013146 01O472 



r. C 1 7 1 
011150 100150 



MEMINC BR,SELA!SP4 »SAVE LOW BYTE 

MICPC»MICPC+l 

<M0VE!WPMEMiINCMAPlBR!<SELA!SP4» 

MKMINC BR,SELA!SP5 J AND NOW HIGH BYTE 

*<ICPC»MICPC + 1 

<»OVE! WP.MEM! INCMAR13RKSEL A! SP5>> 
.ENDC 

STATE RCVD ; SET NEXT STATE TO D 

M ICPC=MICPC+1 

<KOVE] WPTEBRn»c«l<RCVD-I'4TT4777/2» 

ALWAYS SEXTT 

MTCPC=MICPC+1 

<JUMP! At,CONDi<REXTT-INIT630nr*4>!<REXIT-INITs777/2>> 
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RCVD»-pnUTINE TO HANDLE RESPONSE FIELD FOP NUMBERED MESSAGES 



PAGE ! 0104 



979 
9B0 



, SBTTL RCVD--POUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 



"81 


013152 


C t 1 
( 1 ) 


013152 


982 


013154 


f 1 1 
C 1 ) 


013154 


r l ) 

983 


013156 


( 1 1 
f I ) 


013156 


r n 

984 


0131*0 


C 1 5 
( 1 1 


013160 


f t ) 

9A5 


01 3162 


( 1 1 


013162 


( 1 ) 
9Rf> 


013164 


tl) 
f 1 ) 
( 1 ) 


013164 


9S7 


01 3166 


( 1 ) 
t 1 ) 


013166 


f 1 1 
oiie 


013170 


( 1 1 
f l 1 
f l 1 


013170 


300 


013172 


( 1 1 


13172 


QQO 
( 1 1 


(11317 4 


( 1 1 


013174 


35| 


0M176 


( 1 ) 

( ' 1 


013176 


( I ) 
( 1 ) 


1 3200 


r 1 1 
r i ) 

' ' ) 


1 3?00 


1 i 1 
( i > 
j ^ 

r 1 1 


01 3202 


f 1 ) 


013202 



000472 
0O0S1 3 



000473 
063223 



000474 
023600 



000475 
0S0757 



000476 
1U75O0 



000477 
100451 



0OQ500 
060601 



000501 
103451 



0"0502 
060610 



000503 
011620 



000504 
1 03051 



000505 
001 
010153 



bcvd: 

RD2| 



STATE RCVE 
»ICPC=MICPC+1 
< M nVEIWPTEBF!I»Ml<RCVE-INITS777/2» 



SP BP,SELB,SP3 

MICPC"MICPC+1 

<M0VEISPXIBR!SELBISP3> 

SPBR IBUS,RCVDAT,SPO 
MICPC«MICPC+1 

<MOVElSPBRXltBUStRCVD*TJSP0> 

BRWRTE BR,SUBtSP17 
MTCPC«MICPC+1 

<"0VElWRTEBR|BRi<SUBJSP17» 



jSAVE THE STATE 



; INPUT THE CHARACTER 



fCOMPARE NEW R TO LAST R 
J IF NEW IS GREATEP" ""PROCESS 



BP7 10$ 
MICPC«HICPC+1 

<JUMPlBP7CONK10S-INITt3000»4>l<10$-INITfc777/2» 

ALWAYS IDLE 
KICPC«MICPC+1 

<JUHPJALCONDJ<IOI«E-INITJi3000*4>J<IDLE-INITt777/2» 



BRWRTE BR.5ELAISP1 
MICPCaMICPC+J 

<M0VEIWPTEBR1BR!<SEI.A1SP1» 



j READ STATUS BYTE 



JMAINT, MODE - GET OUT 



BR7 IDLE 
MICPC«MICPC + 1 

<JUMPlBR7CON!<IDLE-INITS3000*4>l<IOLE-ISITt777/2» 

BRhRTE BR.SELAISP10 
"ICPCaHICPC+1 

<*«OVE J WRTEBR 1BR KSELA J SP1 0» 
BRSHFT 

HICPC«MICPC + 1 

< M 0VE1 SHFTBP t WRTEBRI SELB> 

BR4 IDLE 
MICPCaHICPC + 1 

<JUMP!BR4CONJ<IDLE-INITS3 000*4>!<IDLE-INITt777/2>> 



LDMA IMM,ISP17 

KICPC«MICPC+1 

.IF IDN IMM.IMM 

<*OVEI LDMAP !IMM!<ISP176J77>> 

.IFF 

<«OVE!LrHAP> IMM1<ISP17>> 
.ENDC 

MEM BR,5ELA!SP0 
>iICPCbMICPC + 1 

<"OVE! WR*EM!BR:<SELAISP0» 



( ADDRESS LAST ACKED IMAGE 



jCOPY THE CHAR 
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PCVD — ROUTINE TO HANDLE RESPONSE FIELD FOR NUMBERED MESSAGES 



I I 1 
o-< 1 



I 1 ) 

r i ) 
( l > 

997 

( 1 ) 
I 1 ) 

i 1 ) 
( ! ) 
f i 1 



0O05O7 
01 3204 01 0403 



°96 "13206 



onosio 
013206 902401 



013 210 

013210 0^3235 



000512 
013212 100»51 



BPWRTE I MM J LDMAPr REPST 
MICPC«MICPC+1 

<M0VEIWRTEBPUMM1LDMARI<REPST» 



MEM IMM,l 
MICPC»MICPC + 1 
<"OVE|WRMEMlIMMt<l» 

SP BP,SELB,SP15 

MTrDruMTrDOi 

<M0VE1SPX1BR1SELBJSP15> 



I SET UP COUNT FOR TIMER 



; *»*»DE PENDENT ON REPST = 
I RESET REP THRESHOLD 



j RESET THE COUNT 



S.LWAYS IDLE 
MICPC«MICPC+1 

<JUMP! ALCOND!<IDLE-INITt3000*4>!<IDLE-IK ! ITS777/2» 



DMC11 DDCKP PROTOCOL IMPLEMENTATION 
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RCVE—ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 



PAGE: 0106 



1000 




tool 




1 Oft? 


013214 


C 1 ) 
£ 1 ) 


013214 


100 3 


"1 3216 


(11 
( 1 ) 


013216 


C 1 1 


013 220 


( 1 ) 
CO 


01 3220 


( 1 ) 
loos 


13222 


( 1 1 


i 3?2? 


C 1 ) 
1 Of 


013224 


1 1 1 

( 1 } 


01 3224 


( 1 ) 

1 007 


01 3226 


( 1 1 

Ml 


013226 


<11 
1 Oiio 


013230 


( 1 1 


01 3230 


(1 ) 
10(!O 


01 3232 


C 1 1 
f 1 1 


013732 


( 1 1 

101 o 


Ot 3234 


( 1 ) 
( 1 1 


01 3234 


m i 


01 3236 


c 1 1 
r i ) 
f i ) 


01 37 3h 



000513 
060601 



000514 
107703 



000515 
02O600 



000516 
060371 



000517 
105522 



000520 
063173 



000521 
104523 



000522 
063071 



000573 
000525 



000524 
100450 



.SBTTL RCVE—ROUTINE TO HANDLE N FIELD OF NUMBERED MESSAGE 
I 

RCYE: BRSRTE BP.SELAJSPl f READ THE STATUS BYTE 

MICPC»HICPC+1 

<M0 VE I WRTEBR 1 BR KSELA ! 5P1 » 

3R7 RCVO 
MICPC»HICP01 

<JU«PlBR7CONJ<RCVO"INITSi3000*4>!<RCVO-INIT6777/2» 

BRWRTE ISO'S, SCVDAT • INPUT THE CHARACTER 

HICPC*MICPC+1 

<«OVEJ WRTEBR I IBUSl<RCVDAT» 

CMP BR,SP11 

MICPC»MICPC+1 

<SUBTC1BRISP11> 

Z 58 
MICPCbHICPC+1 

<JUHPlZCOND!<5S»INITt3000*4>l<5S-INITS777/2» 



SP BP,DECA,SP13 

MICPC«MICPC+1 

<H0VE1SPXJBR1DECA!SP13> 



I FORCE MSG TYPE TO -1 



ALWAYS RE 2 
MICPC»MICPC+1 

<JUHptALCONnj<RE2-INITi3000»4>l<RE2-INITa777/2» 



SP BR,INCA,SP11 

MICPC«HICPC+1 

<40VE1SPX|BPJINCAJSP11> 



j UPDATE R FIELD 



jNEXT RECEIVE STATE IS F 



STATE RCVF 
MICPC*HICPC + 1 

<MOVElWPTEBRJIHMi<RCVr-INITS777/2» 
ALWAYS REXIT 
MICPC«MICPC + 1 

<JUMpjALCON0KREXIT-INITfc3000*4>KREXIT-INIT6777/2» 



DMC1 1 
DDC'^G' 



-r-C*V PRDTOCOt IMPLEMENTATION 
."AC 06-DEC-76 11:34 



013242 

1 3747 

013744 

01 3244 

01 3246 

013246 
013250 

01 3250 

01 3252 

01 3252 



000526 
1051 30 



000527 
063165 



0005 30 
000533 



000531 
020200 



000532 
100450 



MACYU 27(10063 14-DEC-76 16:44 PAGE 6-41 
RCVF— ROUTINE TO IGNORE ADDRESS 

, SBTTL RCVF— ROUTINE TO IGNORE ADDRESS 
RCVFj SP BR,DECA,SP4 ; DECPEMENTLOW BYTE OF COUNT 

KICPC=MICPC+1 
<M0VE!SPX!BR!DECA!SP4> 

C RCVFO J NO OVERFLOW 

MICPC*MICPC*1 

<JUKptCCONDKRCVF0-INITJi30OO*4>l<RCVFO-INITS777/2» 



PAGE: 0107 



RCVFO: 
RCVF1 : 



SP BR,DECA,SP5 
MICPCaMICPC + 1 
<M0VE!SPX!BP!DECA1SP5> 



! OVERFLOW - DECREMENT HIGH BYTE 



STATE RCVG 
KICPCaMICPC+1 

<MOVE J WRTEBR 1 IMM J <RCVG-INIT&777 /2>> 

NOP IBUS.RCVDATf jINPUT CHARACTER 

MICPC«HICPC+1 

<IBUSIRCVDAT10> 



AND DISCARD 



ALWAYS REXIT 
MICPCcMICPC+1 

<JUMPlALCON0KREXIT-INITt3000*4>!<RFXIT-INITS777/2» 



000533 
013254 000535 



0O0534 
013756 1"4531 



, SBTTL RCVG- -ROUTINE TO IGNORE CRC1 
» 

STATE RCVH J NEXT STATE IS PCVH 

MICPC=HICPC+1 

<MOVE! WRTEBR! IMV l<RCVH-INITS77 7/2» 

ALWAYS RCVF1 

MICPC*MICPC+1 

<JUKP! ALCONDl<RCVFl-INITJ.3000*4>!<PCVFl-INITS777/2» 
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DDCHG*.wAC 06-DEC-76 tl;34 RCVH--POUTI NE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



102*. 
1027 
102S 
1021 



.SBTTL RCVH— ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYP 



01 32*" 
01 3260 

013260 

01 3262 

01 3262 

PI 3264 

01 3264 

01 3268 

013266 

01 3270 

01327" 

013272 

01 3272 

013274 

01 3274 

01 3276 

01 3276 

013300 

01 3300 



000535 
023200 



000536 
020640 



000537 
116165 



000540 
060601 



000541 
1 07740 



000542 
060610 



000543 
001620 



000544 
117307 



000545 
001 
010151 



000546 
013302 016402 



000547 
013304 0167DI 



000551 
013306 nfc2617 



SP IBUS,PCVDAT,SPO 
MICPCsMICPC*l 

<MOVE1SPXIIBUSIRCVDATISPO> 

BRWPTE IBUS,RCVCON 
MICPC«MICPC+1 

<MOVE ! WPTEBP ! IBU8I <RCVCON» 



BRO TD0N1 
HICPCoMICPC+t 

<JUWPtBR0CONJ<TDONl-INITii3000»4>l<TD0Nl-INITti777/2» 



(GET CHAR IN SPO 



I READ RECVR CONTROL REGISTER 



?IF BCC MATCH SET CRC IS GOOD 



BRWPTE BR,SELAiSPi 
MICPCbMICPC+1 

<MOVE 1 WRTEBR 1 BP t <SELA t SP1» 



; READ STATUS BYTE 



fMATNT MODE 



BR7 RHX 
MICPCsMICPC+1 

<JUMPtBR7CONt<RHX»INITt3000*4>!<RHX«INITS777/2» 



BRWRTE DP,<SELAtSP10> 
MICPC=MICPC + 1 

<MOVE 1 WRTEBR ! DP I «5ELA1 SPl 0» 
BRSHFT 

MICPCeMICPC+1 

<MOVE 1 SHFTBR J WRTEBR I SELB> 



; READ PORT STATUS WORD TO BR 



| IF START MODE"- PROCEED TO RESEND START 



BR4 SNAK1 
HICPC»MICPC+1 

<JUMPiBR4CON!<SNAKl-INITt3000»4>l<SNAKl-INITt777/2» 



LDMA IMM.T 

MICPC*MICPC*i 

.IF ION IMM, IMM 

<MOVEi LDMARJ IMMKT4377» 

.IFF 

<M0VE1 LDMAR I IMM J <T>> 
.ENDC 

MEMINC IMM, 2 
MICPCeMICPC+1 

<MOVEi WRMEM ! INCMAR t IMM I <2>> 

MEMINC IMM, 301 
MICPCsMICPC + 1 

<M0VE!WRMEM1 INCMARJ IMMl<301» 

MEM BR,SELA1SP17 
MICPCbMICPC + 1 

<MOVE ! WPMEM 1 BRKSELA I SPl 7» 



I ELSE BCC ERROR--LOAD ADDRESS OF TYPE FI 



I WRITE NAK TYPE 



» WRITE HEADER BCC ERROR SUBTYPE 



i RESTORE LAST ACKED IMAGE 



IMM, NHDS 



J ADDRESS CUK ERROR COUNTER 



DMC11 ■■ 
DDCHG1- 
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RCVH--POUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



PAGE ! 0109 



( 1 1 
( 1 ) 
( 1 ) 
( 1 1 
( 1 ) 
( 1 > 
( 1 1 


il 1 3 3 1 n 


"0055 1 
"01 
1001 3 

'■0 


MICPC»MICPC+1 
.IF IDN IMM, IMM 
<M0VE1LDMAR! IMMl<NHDSt377» 
.IFF 

<MOVE ! LDMAR ! IMM I <NHDS>> 
.ENDC 




io*; 
( l ) 
( i ) 

( 1 1 


n 1 1312 
113317 


000552 
043220 


RH5; SP MEMX,SELB,SPO 
MICPC«MICPC+1 
<MOVE I SPX 1 MEMX ! SELB ( SPO> 


jWRITE IT TO SPO 


104' 

( 1 1 

( 1 1 


"13314 
013314 


06246" 


MEM BR.INCA1SP0 
<«OVE1WRMEM1BR1<INCAJSPO» 


J INCREMENT IT 


104 1 
( 1 ) 
( 1 "> 
( 1 1 
( 1 ) 
(1 ) 
( 1 ) 
( 1 ) 


13 316 
HI 3316 


000554 
001 
010001 

00" 


LDMA IMM, NAK5T 

MICPCaMICPC+1 

.IF IDN IMM, IMM 

<«OVE! LDMAP i IMM ><NAKST&377» 

. IFF 

< MOVE! LDMAR 1 IMM ! <NAKST>> 
.ENDC 


I ADDRE5S NAXS TMTED DYNAMIC 


104* 
( 1 1 
( 1 1 
(1 ) 


"13320 
01 3320 


000555 
040620 


BRWRTE MEMX, SELB 

MICPC«MICPC+1 

<M0VE1 WRTEBR 1 MEMX I <SELB» 


|WRITE IT TO BP 


1046 
(1 ) 
( 1 1 

( 1 ) 


013322 
01 3322 


000556 
06162" 


BSHFTB 

MICPC«MICPCtl 

< MOVE 1 SHFTBR t SELB I BR> 


(SHIFT IT RIGHT 


1047 
( 1 1 
( 1 ) 
( 1 ) 


013324 
013324 


000557 
062620 


MEM BR, SELB 

MICPC=MICPC*1 

<MOVE! WPMEM J BR 1<SELB>> 


1 UPDATE IT 


104f> 

en 
(i i 
(n 


013326 
01 3326 


000560 
1 16256 


BRO NTHRES f BRANCH IF THRESHOLD EXCEEDED 
MICPC*MICPC+1 

<JUVPJBR0CONJ<NTHRE5-INITi3 000»4>KNTHPES-INITS,777/2>> 


1049 

( 1 1 
( 1 1 
( i ) 


"13330 
01 333" 


"00561 
114 7 4 


ALWAYS SNAK 
M7CPC«MICPC+1 

<JM«P! ALCOND !<SNAK-INIT&300"*4> 


<SNAK-I»tIT4777/2» 


105" 
( 1 ) 
( 1 ) 
( 1 1 


013332 
01 3332 


0OC56? 
06057 3 


RH3 I BRWRTE DP, <DEC A i SPl J> 
MICPC»MICPC+1 

<M0VK!WRTEBR!DP!<DECA!SP13>> 


I LOAD TYPE RECEI VED--DECREMENTING 


1051 
( 1 1 
( t ) 
( ! 1 


013334 
13 3 3 1 


0""56? 

11546? 


Z RH1 -IF ALUOUT IS ALL ONES IS NUMBERED 
MIC PCsMICPC+ 1. 

<JU»iPJZmNnj<RH1-INIT*300P»4>!< t lHl-TMT(;777/2>> 


105? 
( 1 ^ 
( 1 1 


01133*. 

ii n 3 '6 


"OOS* ' 


ROTATE RCVA 
m ir PCs VICDC * 1 

<vnvv. 1 WRTERP ! T« •' ! <RC VA-INITH777 / 2 >> 



M )0'C = MTCPC + 1 
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RCVH-.POUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



PAGE I OHO 



1053 


013142 




(!) 




000566 


(n 


013342 


PbOfilO 


tn 






1054 




001 


1055 






1056 






1057 




000 


105a 




001 


105° 


013344 




rn 




000567 


tn 


013344 


002212 


(i) 






106^ 




000 


1061 


013346 




(1) 




000570 


(11 


013346 


001620 


(15 






1062 


013350 








000571 


(15 


013350 


107177 


(11 






106 * 


01 3352 




(1) 




000572 


(11 




001 


(1) 


01 3352 


010162 


(11 






(11 






(11 




000 


( 1 1 
106J 


013354 




(11 




000573 


(11 


013354 


054373 


( 1 1 






1065 


01 3356 




(1 1 




000574 


( 1 1 


013356 


1 15*11 


(1 ) 






IO61: 


01 3360 




f 1 1 




000575 


( 1 1 


01336?! 


054373 


(1 1 






1067 


013362 




(11 




000576 


(11 


01 3362 


115145 


f 1 1 






106« 


01 3354 




(n 




000577 


( 1 ) 




001 


1 1 ) 


1 3 364 


010164 


( i j 






(11 






1 1 1 




OOn 


( 1 1 






106° 


013366 




( ! 1 




000600 



BRWPTE DP P <SELMSP10> 
MTCPC««CPC+1 

<MOVE I HRTE8R 1 DP I <SEI,A1 SP1 0» 

.IF OF ILOW 
BR4 FLUSH1 

.ENDC 

,TF NDF SLOW 

OUTPUT IMM,<20010PCVCO> 
MICPCsMICPOl 

<*0¥E > smouf i : a « j <aoo j ope vee>> 

.ENDC 
BRSHFT 

HICPC»HICPC+1 

<M0 VE 1 8HFTBR 1 HRTEBR t SELB> 



j LOAD LINE STATUS WORD IN BR 



jSHIFT RIGHT 



BR4 10$ 
MICPCaMCPC+l 

<JUMPlBR4CONl<10$»INIT&3000»4>l<10$-INITfc777/2» 



LDMA IHH.TYPTAB 
MICPCaMICPC+1 
.IF IDN IMM,IMH 
<MOVE 1 LDMAR i IMM 1<TYPTABI,377» 
.IFF 

<MOVE'LDMAPJIMMI<TYPTAB» 
,ENDC 

CMP <MEMX!INCMAR>,SP13 

MICPCoMICPC+1 

<SUBTCIMEMX:INCMAR1SP13> 

Z REP 
KICPCaMICPC+1 

<JUMPlZCONDi<REP-IHITS3000*4>l<REP-INITi777/2» 

CMp <MEMX!INCHAR>.SP13 

«ICPC««ICPC+1 

<SU8TCIMEMX1I»CMARJSP13> 

Z NAK 
MICPCaMICPC+1 

<JUMPlZCONDJ<NAK-INITt3000*4>I<NAK-INITS777/2» 



I ADDRESS TYPE TABLE 



LDMA IMM, TYPSTT 

MICPCaMICFC+1 

.IF IDN I MM, IMM 

<M0VEILDMAR!IMM!<TYPSTK377» 

.IFF 

<><OVEJLDMARlIMMl<TYPSTr» 
.ENDC 

C*P <MEMX!INCMAR>,SP13 
MICPCsMICPC+l 



f SET POINTER TO START TYPE 



DMC11 nnrmp PROTOCOL IMPLEMENTATION MACYll 27(1006) 14-DEC-76 16J44 PAGE 6-45 PAGE: 0111 



DDCHG". 


"HC 


J6-DBX-76 11:34 


RCVH— 


ROUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 


( 1 1 


"1 3366 


054373 




<subtcimemxjincmar:spi3> 


( 1 1 
107f' 


013370 






Z START 


( 1 ! 




000601 




MICPCxMICPC+1 




01 3370 


1 15420 




<JUSPJZCOND!<S?AST-INIT«.3000»4>!<START-INITS777/2» 


(1 1 
1071 








(STACK TYPE 


1077 


01 3372 






CMP <MEMX[INCMAR>,SP13 


( 1 1 




000602 




MICPC=MICPC+1 


( 1 1 
( 1 ) 


01 3372 


054373 




<SUBTC!MEMX!INCMARJSP13> 


107 \ 


01 3374 






Z STACK 


( 1 1 




000603 




MICPCaHICPC+1 


(11 


01 3374 


115432 




<JUMPlZC0ND!<STACK-INITS3000»4>l<STACK-INIT&777/2>> 


( 1 ) 
1071 


01 3376 






CMP <MEMXJINCMAR>,SP13 |ACK TYPE 


( 1 1 




000604 




MICPCaMICPC+1 


( 1 1 
( 1 1 


013376 


054373 




<SUBTCIMEMX1INCMAR[SP13> 


107t 


01 3400 






Z ACK 


( 1 1 




OO06O5 




MICPCeKICPC+S 


( 1 1 
( 1 1 


01 3400 


101746 




<JUMPlZCOND!<ACK-INITJ.3000»4>J<ACK-INIT&777/2>> 


107r 


01 3402 






ALWAYS IDLE j OTHERWISE IGNORE — MUST BE OBS MSG 


( 1 5 




000606 




MICPCaHICPC+1 


( 1 1 
( 1 ) 


013402 


100451 




<JUMPJALCONDKIDLE-INITt3000»4>!<IDLE-INITi7 77/2» 


1077 




001 




.IF DF SLOW 


107S 






RCVCKj 


SPBR IBUS.RCVCON.SPO ) READ RCVR CONTROL CSR 


107° 








BPWRTE BR,ADDlSPO jSHIFT LEFT 


10BI-' 








9P7 11 


10(1 1 








ALWAYS TA1 


10R? 






ACKt 


BRWRTE BR.AAISPIO ; READ LINK STATUS-SHIFTING LEFT 


1083 








BR4 5S J IF START RECD -- CLEAR START MODE 


lOpa 








ALWAYS IDLE 


1055 








BRBRTE !«<«.- 137 1 CLEAR START MODE 


lOSfc 








SP BRi AANDB. SP10 I IN LINE STATUS 


1087 








ALWAYS RD5 


loao 




000 




.ENDC 
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RCVH--RQUTINE TO HANDLE CRC2 AND TO DISPATCH NUMBERED AND UNNUMBERED TYPES 



1090 






1 04 1 






1092 


01 3404 




1 1 ) 




000607 


( 1 1 


01 3404 


123600 


1 1 1 






10" 3 


01 340h 




( 1 1 




00061 


( 1 ) 


01 1406 


1 0205 1 


( 1 1 






1094 


013410 




( 1 ) 


013410 


00061 1 


C 1 1 


000600 


( 1 ) 






1095 




001 


1 09* 


01 3412 




( 1 ) 




00061 2 


( 1 1 


013412 


063300 


( ' ) 






1097 




000 


10"? 




001 


1 0<5<J 






1 1 '.!<' 




000 


1 ] n 1 


013414 




( 1 1 




0006 13 


( 1 ) 


013414 


00065 3 


IIP? 


01 3416 




( 1 l 




00061 4 


( 1 1 


01 3416 


104620 


( 1 1 






1 in 3 






1 1 "4 


013420 




( i 1 




00061 5 


( ' i 


01 3470 


123600 


( t ) 






t 1 OS 




001 


1 1 OK 


01 342? 




( t ) 




000616 


( 1 1 


01 34?2 


106 24 7 


C 1 1 






1 1 r> 7 




000 


1 1 ; > a 




001 


1 t ■■>9 






1 1 J 




000 


1111 


t 3424 




C 1 ) 




0006 1 7 


f 1 ) 


01 3424 


000625 


111? 


1 1. 3 4 26 




( 1 1 




000620 


( 1 


01 3426 


n n 3223 


t 1 1 






1 1 n 


013430 




( 1 > 




000621 


f i > 


013430 


022703 


( i ) 






11 i : 


01 3 a 32 





j#»#»»»*»*«»«»»»»»TIME CRITICAL CODE— CHANGE WITH GREAT CARE»»#»»»»«#*»***»»»»*# 

,SBTTL RCVK01--R0UTINE TO HANDLE FIRST BYTE ODD RECEIVE 
RCVKC1: SPBR IBUS»NPR»5P0 jFEAD NPH REGISTER 

MICPC«HICPC+1 
<MOVE I SPBRX 1IBUS1 NPR J SPO> 

BPO IDLE 
HICPC«MICPC+1 

<JUMP:BROCON!<IDLE-INITS3000«4> J<IDLE«INITl777/2» 



RCVKOl 



BRWRTE IMM,2O0 

MICPC«MICPC*1 

<MOVEIWRTEBR!IMMJ<200>> 

,IF NOr I LOW 

SP BR,AORB,SPO 

MICPC-MICPC + 1 

<MOVElSPX!BP!»OFBtSPO> 



j MASK FOR CO ( BYTE TRANSFER) 



.ENDC 

.IF DF »LCW 

OUT BR,<A0RB10»PR> 1 TURN ON CO 

.ENDC 
STATE RKE1 
MICPC«MICPC+l 

<MnVElWRTEBPlI«MJ<RKEl»INIT&777/2» 

ALWAYS RCVK02 

MICPC»HICPC+1 

<JUMPJ ALCONDKRCVK02»INITi3000»4>!<RCVK02-INITi777/2>> 



, SBTTL RCVKO-- PROCESS ODD CHARACTER 

SPBR IBUS,NPR,3P0 

MICPC-MICPC+1 

<MQVEJ SPBRX !IBUS1NPRJSP0> 



|IS AN NPR GOING 



.IF NDF 8L0H 
BRO PK66 
MTCPC»MICPC*1 

<JUMpjBR0CONi<RK66-INITt3000*4>l<RK66*INITi777/2» 



(IF SO. REITERATE ODD AND EXIT 



SLOW 
IDLE 



.ENDC 
.IF DF 
BPO 
.ENDC 

STATE RCVKE 
MICPC«MICPC+1 

<MOVElNRTEBP!I*Ml<RCVKE-INITS777/2» 
RCVK02I SP BR,SELB,3P3 
MJCPC«MICPC*1 
<«0VE!SPXtBP!SELBlSP3> 

OUTPUT IBUS.RCVDAT J0UTDA2 
MTCPC"MICPC+1 

<H0VE1WR0UT! IBUSKRCVDAT10UTDA2» 
RK8 J BRWRTE IMM,21 



»IF SO, GH BACK TO IDLE LOOP 



I SET STATE 



»OUTPUT A CHAR 



JSET OUT NPR (CD AND NPR RED 



DMC11 "'OCP PROTOCOL IMPLEMENTATION 
DDCHV'.-'AC 06-0FC-76 11134 



1100622 
013*32 000421 



000623 
0134 3 4 061310 



MACY11 27(1006) 14-DEC-76 16t44 P8 
RCVKO" "PROCESS ODD CHARACTER 

MICPCbMICPC+1 
<M0VE1WPTEBRJIMMI<21» 

.IF DF SLOW 

SP IBUS,NPP,SPO 

.ENDC 

RK7i our br,<aorbjowpr> 

MICPCbMICPC+1 

<MOVE t NR0UTX t BRKA0RB 1 0NPR>> 



PAGE ! 0113 



1 READ NPR REGISTER 
J WRITE NPR REGISTER 



000624 
) I * 4 3 b loo*Sl 



ALWAYS IDLE 
«ICPC«MICPC+1 

<JUMPiALCOND!<IDLE-INITS3000*4>!< IDLE-IN I T4777/2>> 
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DDCHGK.MAC 06-DEC-76 1 1 1 34 RCVKE--HANDLE EVEN BYTES 
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] 121 






1122 


013440 




CI ) 




000625 


cn 


013440 


120600 


(t) 






U23 




001 


1124 


013442 




CD 




000626 


f 1 5 


013442 


107251 


(1) 






1125 




700 


1 1 26 




001 


1127 






1 1 2S 




Q 


112P 


01 3444 




( 1 1 




000627 


( 1 5 


01 3444 


023140 


( 1 1 






1 1 30 


01 3446 




f 1 ) 




000630 


(1 ) 


01 3446 


062066 


( 1 1 






1 1 31 


01 3450 




( 1 1 




000631 


( 1 1 


01 3450 


063164 


( 1 ) 






1 1 3? 


013452 




( 1 ) 




000632 


U) 


013452 


105235 


( 1 5 






1133 


01 3454 




m 




000633 


c 1 1 


013454 


063165 


c i ) 






1 134 


013456 




< 1 5 




00OS34 


tl) 


01 3456 


10571 1 


(15 
1 1 35 


01 3460 




( 1 5 




000635 


( 1 5 


01 3460 


027202 


(1) 






1 1 36 


01 3462 




f 1 ) 




000636 


(1) 


013462 


023140 


( 1 ) 






1 1 >7 


01 3464 




f 1 5 




0006 37 


r i ) 


01 3464 


062066 


C 1 1 






nip 


01 3466 




f 1 i 




0O0640 


f 1 ) 


01 3466 


1 15)35 


< 1 ) 






1 ! 19 


01 3470 




( 1 5 




('"0641 



, SBTTL RCVKE— -HANDLE EVEN BYTES 
RCVKEl BPWRTE IBUS,NPR 
MICPC«MICPC*1 
<HOVE i WRTEPR 1 1 BUS i <NPR» 



J READ NPR CONTROL REGISTER 



,1" KDF SLOW 
BR4 RK4 
MTCPC=MICPC*1 

<J0MpiBR4C0KS<RK4-INITt3000«4>t<RK4-INITi777/'2» 



.ENDC 

,IF or SLOW 
BPO IDLE 
.ES5C 

SP I3US,I0BA1,SP0 

MICPC«MICPC+1 

<MQVE I SPX 1 I BUS 2 I0BA1 1 SPO> 

OUTPUT DP,<INCAJOBM> 
MICPCaMICPC+1 

<MOVE!WROUT!DP!<INCAIOBA1» 

SO BR,DECA,SP4 

MICPC=MICPC+1 

<M0VE!SPXIBR!DECAISP4> 



(IF RECV NPR—BRANCH 



C 10S 
HICPC«MICPC+1 

<JUMPlCCOND!<10S"INITfc3QO0*4>l<10S»INIT&777/2» 



j READ LOW BYTE OF BA TO SP 



>WRITE INCREMENTED BA 



| DECREMENT CHARACTER COUNT 



I NO OVERFLOW 



5P BR,DECA,SP5 

MICPCbHICPC+1 

< MOVE I SPX J BR J DEC A J SP5> 



Z RL3 
f"ICPC»MICPC+l 
<JUMP!ZC0NDi<FL3»IMTl3000»4>J<RL3-INITt777/2» 



jOVERFLOW - DECREMENT HIGH BYTE 



j BYTE COUNT ZERO 



OUTPUT IBUS,<RCVDATiOUTDAl> 
MICPC«MICPC+l 

<M0VEtWR0UTtIBUSJ<RCVDAT10UTDAl» 

SP IBUS,I0BA1,SP0 

MICPCsHICPC+i 

< HOVE! SPX! IBUS! I0BA1 1SP0> 

OUTPUT DP,<INCAJ0BA1> 
MICPC«MICPC+1 

<«0VE!WR0UT!DP!<INCA:0BA1» 



C ICBA22 
MICPCaMICPC+1 

<JUMPiCCOND!<ICBA22-INITi3O00*4>KICBA22-INITS777/2» 



I READ CHARACTER AND WRITE IT 



} READ INCREMENTED BA 



jWRITE INCREMENTED BA 



| IF CARRY INC BA HIGH 



SP BR,DECA,5P4 
MICPCsMICPC+1 



> DECREMENT THE COUNT OF BYTES 



D M C 1 1 ODC'P PROTOCOL IMPLEMENTATION 
DDruGH.«AC 06-DEC-76 11:34 



013470 063164 
lil 3472 



1 150 
115 
1 15 



0O0642 
013472 105245 



01 3474 
01 3476 
"1 3476 

01 3500 

01 3500 

01 3502 

013502 

013504 

01 3504 
01 3506 

01 3506 

01 3510 

1 351 

ni 3512 

01 3512 



0OQ643 
063165 



000644 
111772 



000645 
020640 



000646 
107215 



000647 
000615 



000650 
1 00450 



000651 
1 02051 



000652 
104627 



000 
001 



"1 3514 

'■)O0653 
013514 1P3200 

001 

01 35)6 

qor>654 
"13516 1O2051 

000 

013520 

n iOf-55 



MACY11 27(1006) 14-DEC-76 16:44 PAGE 6-49 
RCVKE- -HANDLE EVEN BYTES 



<M0VE!SPX!BR!DECA!SP4> 
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I NO OVERFLOW 



C RK6 
MICPC»MICPC+1 

<JUMPJCCOND!<RK6-INITi3000»4>J<RK6-INIT&777/2» 



SP BR-DECA-5P5 

MICPCsMICPC+l~ 

<M0VE1 SPX ! BR 1 DEC A ! SP5> 



Z RL4 
MICPC»MICPC+1 

<JUMP|ZCONDl<RL4-INITt3000*4>!<RL4-INIT&777/2» 



• DECREMENT HIGH BYTE OF COUNT 



; BYTE COUNT ZERO 



.IF NDF SLOW 
BRWRTE IRUS»RCVCON 
MICPCAMICPC+1 

<M0VE!WRTEBRII8USI<RCVC0N» 



j READ RECEIVER CONTROL REGISTER 



BP4 RCVKO 
MICPCsMICPC+i 

<JUMPJBP4CON!<RCVKO-INITa3000*4>J<RCVK0-INITt777/2» 

STATE RCVKO 
MICPCaMICPC+1 

<MOVElWRTEBRlIMMl<RCVKO-INITS777/2» 

ALWAYS REXIT 

MICPC=MICPC+1 

<JUHPI ALCONDJ<REXIT-INITt3000*4>J<REXIT-INITi777/2» 

BRO IDLE 
MICPCrMICPC+1 

<JUMPJ BROCON!<IDLE-IN:Tt3000*4>!<IDI..E-INIT&777/2» 

ALWAYS RK5 >IF NO NPR -- 

MICPCaMICPC+1 

<JUMP!ALCPNDl<RK5-INITS3000»4>i<RK5-INIT677 7/2» 



.ENDC 

.IF DF SLOW 
STATE RCVKO 
ALWAYS REXIT 
.ENDC 

SP IBUS, NPR, SPO 

MICPC=MICPC+1 
<10VE|SPX! IBUSINPR!SPO> 



>IF ANOTHER CHARACTER—PROCESS 



•READ NPR REGISTER 



.IF NDF SLOW 
RRO IDLE 
"ICPCsMirPC* 1 
<JUMP!HWciCO'' <IM.E-INITS.300O*4>!<IDLE-I f JITi777/2» 



»NPR STTLL IN PROGRESS 



.ENDC 

PRWRTF I v «,177 
"TCPCs'nrrc* 1 



! M A S K FOR ALL BUT CO 



DMC11 DDC"*P PROTOCOL IMPLEMENTATION 





WAC 04 






013520 


00057 


Ml 






J ' 
111 


3522 




: ' 




' » V V O 3 O 




11 «55 


0*1270 


( t ) 






1162 






1 1 ) 




- 

00o5 7 


( i ) 


013524 


104631 


(1) 






1 163 






J 1 64 








1 3526 




(11 




000660 


1 1 ) 


013526 


023200 


1 1 w 


01 3530 




CI) 




000661 


(1) 


01 3530 


062202 


1 167 


01 3532 




f 1) 




UO0662 


(1) 


013532 


060601 


1 1 6 8 


1 3534 




CI) 




000663 


CI) 


CM 3534 


1 17576 


(1) 
1169 


013536 




CI) 




000664 


(!) 
CI) 


013536 


104641 



MACY11 27C1006) 14-DEC-76 16:44 PAGE 6-50 
RCVKE- -HANDLE EVEN BYTES 

<M0VEIWRTEBRIIMMJ<J77» 

OUT BR,<AANDBiONPR> 
MICPC»«ICPC*1 

<MOVE 1 WROUTX J BR I < AANDB I ONPR» 



PAGE! 0115 



j TURN OFF ALL BUT CO 



ALWAYS RK50 
MICPC-MICPC+1 

<JUHPlALCONDl<RK50-INIK3000#4>l<RK50»INITS777/2» 
|»»»»«»»»»»»»»»»»»END Of TIME CRITICAL PATH««»««*»«*«»*«»»»**»»«««»«*»*»»»»»»«»* 



PCVKEOl SP IBUS,RCVDAT,SPO 
MICPC»MICPC+1 

<MOVE16PX!IBUS1PCVD*TISPO> 

OUTPUT BR,<8ELA10UTDA1> 
MICPCbMICPC+1 

<MOVE!KROUT!BR!<SELA10UTDA1» 

BPWPTE BR,SELA'SP1 
HICPC«MICPC+1 

<«0VEIWPTEBPIBRKSELAISP1» 



I READ CHARACTER AND SAVE IN SPO 
jSEND NONSENSE CHARACTER 
; READ STATUS BYTE 
t MAINT MODE - SEE IF RLD MESSAGE 



BR7 PASWRD 
MICPC«MICPC+1 

<JUHPJBR7CONKPASWRD-INIT63000*4>l<PASWRD-INIT«,777/2» 

ALWAYS RK3 (OTHERWISE PROCESS NORMALLY 

HICPC«HICPC+1 

<JUHP!ALCOND;<BK3»I»ITS3000»4>KRK3-INIT6777/2» 



0»ril DDC«P PROTOCOL IMPLEMENTATION 
DDCHGH.MAC Of-OEC-76 1H34 



1171 




1 172 


01 3540 


CI) 
C 1 ) 
C 1 ) 


01 3540 


1173 
C 1 ) 


013542 


C 1 ) 


013542 


1 174 


013544 


CI) 
CD 
(1) 


01 3544 



000667 
100450 



MACY11 27(1006) 14-DEC-76 16(44 PAGE 6-5! 
RCVI--STORE UNNUMBERED MESSAGE TYPE 

, SBTTL RCVI--STORE UNNUMBERED MESSAGE TYPE 
RCVIt SP IBUS,PCVDAT,SP1S t STORE UNNUMBERED TYPE 

MICPCbMICPC+1 

<M0VE1SPX!IBUS1RCVDAT1SP13> 

STATE RCVJ | NEXT STATE IS J 

MICPCbMICPC+1 

<M0VE!NRTEBRiIMM|<RCVJ-INITS777/2» 

ALWAYS REXIT 

MICPC«MICPC+t 

<JUMPlALCONDJ<REXIT-INITS3000»4>KREXIT-INITt777/2» 



PAGE I 0117 



DMCU DDCMP PROTOCOL IMPLEMENTATION 
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MACY11 27(1006) 14-DEC-76 16l44 PAGE 6-52 
RCVJ--POUTINE TO HANDLE SUBTYPE FIELD, SELECT AND FINAL 
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1177 






, SBTTL RCVJ— ROUTINE TO HANDLE 


SUBTYPE FIELD, SELECT AND FINAL 


1 178 


01 1546 




RCVJj 




1179 




001 


.IF DF SLOW 




1 1 8 






ALWAYS SELOSY i "CALL" 


SELECT AND QSYNC SUBROUTINE 


H81 




OOO 


.ENDC 




1 182 




001 


.IF NDF SLOW 




1193 


i) 1 3546 




sp :b'js,rcvdat,sp5 


; GET CHARACTER 


CI) 




000670 


MICPC«MICPC+1 




(11 


01 3546 


023205 


<M0VEISPX1IBUS1RCVDAT|SP5> 




( 1 1 
1 181 


"11 3550 




BRWRTE IMM.200 


jCONDITIONALLY SET BIT 


(11 




n0067 i 


WICPC»MICPC+i 




C 1 ) 


01 3550 


non600 


<*OVE!WRTEBP1IMMI<200» 




CI) 
1185 


01 3552 




BRWRTE BR, AANDB1SP5 




C 1 ) 




000672 


MICPC»MICPC + 1 




C 1 ) 


01 3552 


060665 


<MQVE ! WRTEBP i BR KAANDB I SP5» 




C 1 ) 
118*. 


01 3554 




SP BR,A0RB,SP10 




( 1 ) 




f>"0673 


MtCPC»HICPC + l 




( 1 ) 


01 3554 


063310 


<M0 VE 1SPX1BRI AORB I SP1 0> 




CI) 
1 1 87 




000 


.ENDC 




1 188 


01 3556 




STATE RCVR 


j NEXT STATE IS N 


CI) 




000674 


HICPC»MICPC+1 




CI) 


113556 


000676 


<M0VElWRTEBRlIHM!<RCVR-INIT*777/2» 


1 189 


013560 




ALWAYS PEXIT 




C 1 ) 




000675 


MICPC»MICPC+1 




CI ) 


01 3560 


100450 


<JUMPJALCONDl<REXIT»I»m3000»4>KREXIT-INITS777/2» 



DMCtl DDC«P PROTOCOL IMPLEMENTATION 
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PCVR— UNNUMBEPED MESSAGE RESPONSE FIELD 



PAGE! 0119 



1 191 




1 1 92 




1 193 




1194 
r l ) 


01 3562 


( 1 ) 


013562 


f 1 ) 
1 195 


01 3564 


C 1 ) 
Ct) 


013564 


C 1 1 
1 196 
C 1 1 


013566 


C 1 ) 


01 3566 


1197 




1 198 


01 3570 


C 1 ) 
(1) 


013570 


C 1 ) 
1 199 


01 3572 


( 1 ) 
( 1 ) 


013572 



.SBTTL PC VP—UNNUMBERED MESSAGE RESPONSE FIELD 
I ENTERED FROM IDLE LOOP 



000676 
000403 



000677 
060353 



000701 
105131 



000702 
114473 



PCVRt BRWRTE IMH.3 
MICPC=«ICPC*1 
<M0VE1WRTEBPIIHMI<3» 

NOP BR,SUB,SP13 

MICPCbMICPC+1 

<BR1SUBISP13> 



jREP MESSAGE TYPE TO BR 



flS TYPE ACK OR NAK 



(NEXT STATE IS RCVQ 



STATE RCVQ 
MICPC-MICPC+1 

<M0VEJWRTEBRJIMMJ<RCVQ-INITt777/2» 

j*»»NOTE THIS INSTR DOES NOT CLOCK 
C RCVF1 | IF NOT IGNORE 

HICPCoMICPC*l 

<JU«PlCCOND(<RCVri-INITi3000*4>l<RCVFl-INITt777/2» 

ALWAYS RD2 I DO RANGE CHECKS 

MICPC«WICPC+1 

<JUMPULCONDKRD2-INIK3000*4>J<RD2-INITi777/2» 



D«C11 DDCP PROTOCOL IMPLEMENTATION 
OOCHGH.MRC 06-OEC-76 1 1 1 34 



MACYll 37( 1006? 14-DEC-76 16: 44 PAGE 6-54 
RCVQ-»1IM NUMBERED MESSAGE—NUMBER FIELD 



PAGEt C120 



1201 
1 202 
1203 
1204 
(1) 
(1 1 
1205 
(1 ) 
f 1) 
ft) 



01 3574 
013576 



000703 
"00525 



000704 
104531 



.SBTTL 
I ENTER 



RCVQ— UNNUMBERED MESSAGE" 
FROM IDLE 



-NUMBER FIELD 



jNEXT STATE IS ADDRESS 



RCVQJ STATE RCVF 
MTCPOMICPC + 1 
<M0VEIWRTEBR1 IMM|<RCVF«INIT«.777/2» 
ALWAYS RCVF1 
MICPC»MICPC+1 

<JUMPlALCONDl<RCVFl-INITt3000*4>l<RCVFl-INITt777/2» 



D"C11 nnc^P PROTO'OL IMPLEMENTATION 
DOCHGH.^AC 0S-OEC-76 11:34 



1 707 






1 209 






1 209 


"1 3600 




( 1 ) 




000705 


( 1 ) 


01 3600 


123600 


( 1 ) 






1210 




001 


1211 


0) 3602 




cn 




000706 


(U 


013602 


107314 


r i ) 






1212 




000 


1713 






1214 






1215 




000 


1216 


01 1604 




( 1 ) 




000707 


( 1 ) 


01 3604 


000576 


ri ) 






1217 


01 3606 




(1) 




000710 


(1 ) 


01 3606 


061270 


( 1 ) 






1218 
1219 


01 3610 




(1) 




O007) 1 


ft) 


01 3610 


070200 


f 1 ) 






1 220 


01 3612 




< 1 > 




010712 


(1) 


01 3612 


000716 


1 221 


011614 




( 1 ) 




00071 3 


( 1 ) 


i<1 1*14 


1O0450 


f 1 ) 






1222 






1 723 




001 


1 224 


013616 




( 1 ) 




000714 


( 1 1 


01 3616 


1O20-51 


( 1 ) 






1 225 


01 1620 




f 1 1 




0O0715 


( 1 ) 


01 B620 


1 ''14707 


' 1 1 






: 726 




100 



MACYU 27(1006) 14-DEC-76 16(44 PAGE 6-55 
RCVL" PROCESS CRC3 

, SBTTL RCVL--PROCESS CRC3 
j ENTERED FROM IDLE LOOP 
RCVLl SPBP IBUS,NPR,SPO 
MICPC«MICPC+1 
<MOVEISP8RX!IBUSINPRJSPO> 



I READ NPR CONTROL 



(RCV NPR BRANCH 



.IF NDF SLOW 
BP4 RL1 
MICPC«MICPC+1 

<JUMPlBR4CONl<RH-INITS3000»4>J<RLl-INITS777/2» 



.ENDC 

BRO IDLF 
, ENDC 

BRWRTE IMM.176 

MICPC-MICPC+1 

<M0VEJWRTEBPIIMMI<176» 



OUT BRr AANDB J ONPR 

MICPCsMICPC+1 

<M0VE1WR0UTXIBPI<AANDB10NPR» 



J MASK TO TUPN OFF CO 



f INPUT CHARACTER AND DISCARD 



NOP IBUS,RCVDAT,0 
MlCPCoMICPC+1 
<IBU31RCVDATiO> 

STATE RCVM 
MTCPC«MICPC+1 

<M0VElWRTEBRIIMMJ<RCVM-INITt777/2» 

ALWAYS REXIT 

*ICPC»MICPC+1 

<JUMPULCONDJ<PEXIT-INIT&3000»4>l<REXIT-INIU777/2» 



,1F NDF «LOW 
PRO I0LF 
MTCPC«MICPC+1 

<JUMPlBPOCONl<lDLE-INITl300n»4>!<IDLE-INITS777/2>> 



J NPR GOING --GET OUT 



ALWAYS PL2 
u ICPC»MtCPC + l 

< JUMP I ALCnND}<RL2»INIT(,300n*4>i<P.L2- 



EN'ITs777/2>> 



DMC11 ODC"P PROTOCOL IMPLEMENTATION 
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RCVM— PROCESS CRC4— -END OF DATA MESSAGE 
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1 7?9 






1230 






1231 






1 ?32 






1733 






1234 


01 3622 




(I) 




000716 


f ' 5 


013622 


1 20620 


( 1 ) 






1235 


013624 




C 1 ) 




000717 


( 1 ) 


0! 3624 


10635 1 


(!) 






12 3*. 


<11 3626 




t 1 ) 




000720 


(1 ) 


013626 


023200 


(1) 






1237 


013630 




( \ ) 




000721 


1 1 1 


013630 


020640 


( 1 1 






12 38 


01 3632 




cn 




000722 


( 1 ) 


01 3632 


1 16214 


(1)- 






1 239 


013634 




( 1 ) 




00O723 


t 1 ) 


013634 


060601 


( 1 ) 






1 240 


01 3636 




! 1 ) 




7 24 


r 1 1 


013636 


107740 


( i ) 






1241 


0! 3640 




( 1 ) 




0<>0725 


C 1 ) 




001 


< 1 3 


01 36«0 


1 1 5 1 


( 1 1 






( 1 ) 






< 1 D 




.100 


( 1 ) 






124? 


01 3642 




' 1 ) 




000726 


< 1 ) 


013642 


01 6 102 


f 1 1 






1 ?43 


013644 




( 1 ) 




000727 


( 1 ) 


01 3644 


016702 


( 1 ) 






12 14 


0! 3646 




C 1 3 




000730 


' 1 1 




001 


f 1 ) 


01 3646 


010014 


t 1 ) 
f 1 ) 






f ! ) 




000 



, SBTTL PC VM— PROCESS CRC4--END OF DATA MESSAGE 
t ENTERED FROM IDLE LOOP 

;IF CRC CORRECT QUEUE INTERUPT AND UPDATE RESPONSE 



> IF CRC WRONG SEMD NAK 
RCVMj RRNPTE IBUS,UBBR 
MTCPC«MICPC+1 

<M0VEJSRTE8R i IBU8 1 <UBBR» 



I READ UNIBUS BR REGISTER 



>NON-EXISTANT MEMORY 



PRO NXHERR 
MICPCaMICPC+l 

<JUHPI3P0CONl<NXMERR»ISIT£3O00#4>l<NXHERR-INITS777/2» 



SP IBUS,RCVDAT,SPO 
MICPC«HICPC+1 

<MOVE ! SPX 1 IBUS t RCVDAT I SPO> 

BRWRTE IBUS.PCVCON 
»ICPC«MICPC+1 

<M0VE1VPTEBRIIBUSKRCVC0N» 



BRO RCVM1 
«ICPC«MICPC*1 

<JUMPlBROCONl<RCVMl»INITt3000»4>l<RCVMl-I»IT&777/2» 



(READ CRC CHARACTER 



j READ RECEIVER CONTROL REGISTER 



»IF CRC GOOD 



BRHRTE BR.SELA1SP1 
MTCPC»MICPC+1 

<»OVE 1 WRTEBR 1 BR i <SELA I SP1 » 



BR7 RHX 
HIcPCBHICFC+i 

<JUMPiBP7CONl<PHX"IMITt3000#4>l<RHX-INITS777/2» 



; READ STATUS BYTE 



}CRC ERROR IN BOOT MODE • FLUSH 



LDMA IMM,T 
MICPC»MICPC*1 
.IF IDN IMM, IMM 
<MOVEtLDMARl IMM1<«377» 
, IFF 

<MQVEJLDMAPIIMM!<T» 
.ENDC 

"EMIHC IM M ,2 
MICPCsMICPC+l 

<M0VE1WRMEM1 INC MAPI IMMI<2» 

MEMINC IMM,302 
MICPC«MICPC*1 

<MOVE!WPMEM< INCMARtIMM{<302» 

LDMA IMM.NDATS 
HICPCaMICPC+1 

.if idn tm.tm 

<MOVElLDMAR!IMMi<NDATSS377» 
.IFF 

<«OVE ! LDMAR J IMM I <NDATS» 
.ENDC 



J ELSE SEND NAK —DATA ERROR 



J DATA ERROR SUBTYPE 



D*C1 

Dorn( 


DDC"1F PROTOCOL IMPLEMENTATION 
:b.«ac 06-0EC-76 111 34 


MACYll 
RCVM— 


27(1006) 14-DEC-76 16|44 PAGE 6-57 
PBOCESS CRC4— END OF DATA MESSAGE 


f 

l ?- 

( 
( 


5 011650 
1 013650 


0O0731 
10455? 




ALWAYS RH5 I SEND NAK 
MICPC=MICPC+1 

<JUMP!ALCONDKRH5"INITS3000»4>l<RH5-INIU777/2» 


1? 

1 '/<■ 
( 
c 
( 
( 

r 

( 
( 


7 013652 
1 013652 


000732 
001 
01 0177 

000 


RCVMO: 


LOMA IMM,«RTHPS+3» »POTNT TO ERROR WORD 

MICPC»MICPC+1 

.IF IDN IMM, IMM 

<M0VEILDMAP1IMMI«RTHPS+3>S377» 
. IFF 

<MOVEJLDMARJ IMMl«RTHRS+3»> 
.FNDC 


1 7 
( 
( 

( 1 


9 013654 
) 013654 


000733 
000*10 




BBWPTE IMM, 10 jMAINT MESSAGE ERROR 

MTCPC»MICPC + 1 

< MOVE 1 WRTEBR 1 IMM 1 < 1 0>> 


17- 

r i 
( 


9 013656 
! 013656 


O00734 
1 '■ 452 2 




ALWAYS RCEXY (GIVE FATAL ERROR 
MICPC»MICPC+1 

< JUMP J ALC0ND!<RCEXY-INITi3000*4> J<RCEXY-INIT£777/2>> 



PAGE: 0123 



DWC 1 1 ODC"P PROTOCOL IMPLFMF NTA7I0N 
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MACYS1 27(1006) 14-DEC-76 16(44 PAGE 6-58 
EM2— PPOCFSS RLD MESSAGE 



PAGES 0124 



i ?^ t 




1 2^7 




1 25 3 




1 2S4 




1 755 


01 3660 


( 1 ) 




( 1 ) 


1 3660 


( 1 } 




1 256 


01 3662 


( 1 1 




C 1 1 


01 3662 


( 1 ) 




1 35 7 


01 366 4 


( 1 ) 




(!) 


01 3664 


( 1 1 




1 25ft 




! 2S9 


01 3666 


(1) 




( 1 ) 


01 3666 


( 1 ) 




1 260 


(11 3670 


( 1 ) 




( 1 1 
( \ 1 


01 3670 


126 1 


01 3672 


( 1 ) 




( 1 1 


01 3672 


( ' 1 

1 26? 


01 3674 


( t 1 




( \ ) 


01 3674 


( 1 ) 




t ?^3 


01 3676 


( 1 ) 




( 1 1 


01 3676 


( 1 ) 




1264 


01 370O 


( 1 ) 




( 1 1 


01 3700 


( 1 ) 
1 2f>S 




176 6 


J 3 02 


( f 1 




(11 


013702 


( 1 1 






01 3704 


1 ( n 




( i ) 


01 3704 


( l ) 




12t>s 


01 3706 


f 1 1 




( 1 ! 


n\ 370* 


(11 





.SBTTL EM2--PR0CESS RLD MESSAGE 
j ENTERED FROM IDLE LOOP 

I IF RLD PASSWORD CHECKS TRIGGER THE BOOT ROM 



000736 



000740 
06P521 



000741 
107143 



000742 
104U5 



0O0743 
000563 



000744 
063261 



000745 
104415 



BPWPTE IBOS,RCVDAT 
MICPCaHICPC+i 

<*0VEIWRTEBR1IBUSI<RCVDAT» 

C M P BR,SP13 

HICPC»MICPC+1 

<SUBTC1BP!SP13> 



J READ THE CHAR 



J IS IT A MATCH 



Z EN 3 

MICPCbMICPC+1 

<JUMP!ZCONDJ<EM3-INITt3000*4>l<EM3-INIT&777/2» 



BRWRTE BRtAAlSPl 

MTCPC»KICPC+1 

<M0VE1WRTEBR!BRI<AAISP1» 



J FALL INTO RHX 

I READ STATUS BYTE SHIFTED LEFT 



jDLE RECEIVED in NORMAL MODE 



B»4 10$ 
MTCPC*MICPC*1 

<JUMPlBR4CONJ<10«-INIK3000»4>J<10S-INIT6777/2» 

ALWAYS FLUSH J ALREADY IN MAINT MODE 

MICPC»MICPC+1 

<JUMPiALCONDl<FLOSH-HHTS3000»4>l<rLUSH-INIT6777/2» 



jHASK TO CLEAR ALL MAINT RELATED BITS 



fCLEAR THEM 



BRWRTE IMM,163 
MTCPC«MICPCtl 
<M0¥E|WPTE8P1 IMMJ<163» 

SP BR,AANDB,SP1 
MTCPC*MICPC+1 
<MOVEJSPXlBPI AANDBISP1> 



ALWAYS FLUSH 
MCPC«MTCPC+1 

<JUMP!ALCOKOJ<FLUSH-INITi3000»4>:<FLUSH-INIT£777/2» 



SP BP,DEC»»SP4 

HTCPC»MICPC+1 

<MOVEl SPX I BR ! DEC A 1 SP4> 



j DECREMENT CHARACTER COUNT BY ONE 



j TRIGGER AC LOW 



Z EMTRIG 
HICPCaMICPC + 1 

<JUMP!ZCOND!<EMTRIG-IHin3000*4>i<E»'TRIG-INITS777/2» 

ALWAYS IDLE 
MICPC«MICPC+1 

<JUMPJALCONDJ<IOLE-INITt3000*4>!<IDI.E-I , iITt777/2» 



DMC1 1 



OnciP PROTOCOL IMPLEMENTATION 
i.VAC 06-DEC-76 11:34 



MACY11 27(1006) 1 4-DEC-76 
EM2--PR0C5SS RLD MESSAGE 



16x44 PAGE 6-59 



PAGE I 0125 



127" 




1271 




177? 


013710 


( 1 1 




(1 1 




( ' 1 

( i 1 


013710 


( 1 ) 
( ! 1 




( ' 1 
1 77 3 


013717 


(1) 




( 1 ) 


01371 7 


127 1 


013714 


(1 1 




( 1 1 


01371 4 


(1 > 




1 775 


013716 


( 1 ) 




( 1 ) 


013716 


( 1 1 




127-* 


01 3720 


( 1 1 




(11 


013720 


( 1 1 





000751 
002 



.IF NDF «LOW 

, SBTTL NXMERR -NON EXISTANT MEMORY HANDLER 
NXMERRj LDMA IMM,<<RTHRS+3» 1 ADDRESS ERROP LINK 

MTCPC«MICPC + 1 
.IF I DM IMMf IMM 

<MOVEILDMARlIMMJ«RTHR5 + 3>(,377» 
.IFF 

<M0VElLDMARJIMM!«RTHRS+3»> 
.FNDC 

MEmIHC IMM,1 
MICPC»HICPC+1 

<MOVEJWRMEMiIWCM»RJIMMi<l» 



MEM IMM,0 
MICPC3MICPC+1 
<MOVESWRMEM!IMMi<0>> 

SP MEMX,SELB,SP10 

HICPC«MICPC+1 

<«OVEJSPXIMEMX1SELB1SPIO> 



>NXM ERROR BIT 



(CLEAR STATUS 



ALWAYS RCEXX 
MICPC«MICPC+1 

<JUMP!ALCOND!<RCEXX-INITS3000*4>i<PCEXX-INIT6777/2» 



DHC 1 1 ODC^P PROTOrOL IMPLEMENTATION 
DDCHGF.'UC 06-DFC-76 11:34 



MACY11 27(10063 14-DEC-76 16:44 PAGE 6-6Q 
NXMERR ---NON EXISTANT MEMORY HANDLER 



PACE: 0!26 



127B 
1279 
12?0 
IJgl 
12B2 

128* 
12»5 
1286 
12f>7 
128« 
1289 
129" 
1291 
129? 
1293 
129J 
1295 
1296 
1297 
129 = 
1299 
(11 
(11 
C1 1 
130<" 
( 1 1 
(1 1 
( 1 ) 
i Sf'i 
(11 
(11 
(11 
1307 
(1 1 
(11 
(11 
1303 
( 1 1 
(11 
( 1 1 
130« 
(1 ) 
(! 1 
( t 1 
1 30^ 
(11 
(11 
(11 
1306 
( i i 
(11 
(11 

1307 

(ii 

( 1 1 



noo 
r»o 1 



01 3722 
013722 
01 3724 
013724 

ill 377fr 
01 3730 
013730 
0137 32 
01 3712 
01 3734 
01 373* 
013716 
013736 
011710 
013740 
01 3742 
01 3745 



000756 
06Q601 



000757 
10374J 



00O76O 
00061 



000761 
063301 



00076? 
100742 



000763 

000-104 



Of>0764 
063000 



00076=; 
110601 



0007R6 
000404 



SELQSYi SPBR 
PP7 

5Si BRWRTE 
BR7 

10SI BRWRTE 
SP 

. ALWAY 



.ENDC 

,ir DF SLOW 

.SBTTL SELOSY--ROUTINETOCHECK SELECT 
j USES 5P5. ALWAYS C1LLED BY FIRST IN51 



1 

ISSt 



6RWPTE 
SP 

ALWAYS 
BRWPTE 
SP 

ALWAYS 
.PAGE 
.EN DC 



I8US,RC¥DA?,SP5 
15$ 

BR» SAiSPS 
20S 

IHM.77 

BP.AANDB.SP5 
BR,INCA,SP31PAGE1 

IHM,200 

BP.AORB.SPiO 

St 

IHM,20 

BP,A0R6#SP10 
IOC 



AND QSYNC AND DIDDLE LINE STATUS WORD 
! B IN A RSTATE 

jREADCHARACTERINTO SP5 AND THE BR 

j SELECT SET?«BRANCH 

; SHIFTBR LEFT 

j FINAL SET? 

(MASK TO BR 

j TURN OFF SELECT ANDF IN AL 



»SET OK TO SEND 

•IN LINE STATUS WORD 



BRWRTE BR.SELAJSP1 
MICPC»HICPC+1 

<M0VE1WRTEBP1BR{<SELAISP1» 



I SETCLEARACTI VE 

)!« LINE STATUS WORD 



jSEE IF IN HAINT, MODE 



BR7 RA3 
MTCPCaMICPC*l 

<JUMPSBR7CONKRA3-INITS30O0»4>I<RA3-INITti777/2» 



I BRANCH IF SO AND TREAT DLE LIKE NUN, MSG. 



BRWRTE IMM.210 

MICPC»HICPC*1 

<MOVElW"RTEBRlIMMl<210>> 

SP BR,A0RB,SP1 
HICPC»MICPC + 1 
<M0VE1SPX1BRU0RB1SP1> 



ALWAYS PA3 
MICPCeMICPC+l 

<JUMPlALCONDl<RA3-INIT63000»4>S<RA3-INIT&777/2» 



(MASK TO SET HAINT MODE AND DLE RECV'D 



jSET THE BITS 



jTREAT LIKE NUMBERED MESSAGE 



I ADC TO 



RESEXTt BRWRTE IHM,4 
MTCPCoMICPCt! 
<M0VE!WRTEBRIIMHJ<4» 

SP BP,ADD,SPO 

HICPC»MICPC+1 

<"OVEiSPXlBRJADDlSP0> 

ALWAYS TH3X 
«TCPCs«ICPC+l 

<JUHP!ALCONDKTH3X-INITS3000«4>l<TH3X-IMT&777/2>> 



TABMXTl BRWRTE IMM.4 
HTCPCaMICPC+1 
<MOVE J WRTEBP I IMM| <4» 



I INCREMENT "XT 



DHC1 1 ilT'CHP PROTOCOL ' f'PLENENTATION 
DDCHr.h.'^AC 0<.-0EC-76 1H34 



MACYH 27(1006) 14-DEC-76 16:44 PAGE 6-61 
NXMERR -NON EXISTANT MEMORY HANDLER 



(11 

130P 


013744 


(11 
( 1 1 


01 3744 


(11 
130O 


H 3746 


(1 1 
( ! 1 


ni 3746 


(1 ) 
1310 


01 3750 


(11 
(1 1 


013750 


( 1 1 
131 1 




131? 


01 3752 


(11 
( 1 1 


013752 


(11 
131 3 


013754 


( 1 1 
(11 


013754 


( 1 1 
131 * 




131" 




1316 




(11 


013756 


(2) 
(21 
(21 


013756 


(1 ) 


01 3760 


(21 
f 21 


01 3760 


(21 




(11 
(?) 


"13762 


( 7 ) 




(2) 




(11 


01 3764 


(2) 




(21 


013764 


(2 ) 





j READ BR CONTROL 



SP IBUS,UBBR,SPO 
HTCPCbMICPC+1 
<MOVE 1SPXI IBUSl UBBR J SPO> 

OUT BR, ADDIOBR 

HICPC«MICPC+l 

<MOVE 1 WROUTX ! BR 1< ADD 1 OBR» 

ALWAYS ECX 
MICPC«HICPC+1 

<0UMP;ALCONDl<ECX-INITS3000*4>l<ECX-INIT&777/'2» 



RTHRES: BPWRTE IMM,2 
MICPC»MICPC+1 
<MOVEJ WRTEBR 1 IMM ! <2>> 

ALWAYS ERRXX 
MTCPCsMICPC+1 

<JUMPJALCONP J<EPRXX-INIT430a0»4>:<SRRXX»INITs777/2» 

,PEPT 4 

SZERO 
,ENDR 
SZEPO 

MICPC=MICPC*1 

000000 

SZERO 

itcpcbmicpc+i 

000000 
SZERO 

MICPCoMICPC+1 



SZEPO 

MICPC»HICPC + 1 

000000 



DMC11 OrCMP PROTOCOL IMPLEMENTATION MACY1 1 2111Mb) 14-DEC-76 16)44 PjnE 6-62 

DDCHGH.-SC P6-OEC-76 11S34 NXMERR ---NON EXISTANT MEMORY HANDLFR 



PAGE ! 0128 



1 31 S 




01 376* 


1319 




000777 


1320 






1321 






132? 


1 37f.fi 




(1) 




001000 


in 


01 376fi 


020620 


tn 






13?? 


01 3770 




(1) 




O01OO1 


en 


013770 


17370? 


(ii 






1324 


013772 




CI) 




001002 


CD 


013772 


100454 


(1) 







,sINITt2000 
V,ICPC*777 

.SBTTL TMTDA--TFAN5MITTER DISPATCH POUTINE 



BRWRTE IBU5,TMTC0N 
MICPC»MICPC+1 

<MCVE ! WRTEBP t IBUSi <TMTCON>> 

,BR4 DP,SELA,<2IPAGE2> 
MICPC«MICPC+1 

<JUHPI BR4C0NiDPISELAJ21PAGE2> 



) READ TPANMITTER CONTROL REGISTER 



I IF READY PROCEED 



I ELSE IDLE 



ALWAYS II 
MICPCsMICPC+1 

<JUMP1 ALCOND!<Il-miTt3000»4>l<Il-INITi777/2» 



DMC11 r 
DDCHGH. 



i;mp ORPTOCriL IMPLEMENTATION 
'AC m-OEC-7* Ht34 



13?«- 






1327 






132 = 


"13774 




1 32'J 




00 1 


1330 






1331 






1332 






1333 




000 


13H" 


"1 5774 




in 




001003 


d i 


01 3774 


06.06 1 r 


C1 1 






1 335 


'M 3 7 7 6 




( 1 ) 




001004 


( l 1 


01 3776 


1 1 2007 


(11 






1336 


01 4000 




(11 




00100S 


(!) 


"14000 


001620 


(11 






1337 


014002 




(1 ) 




001 006 


(11 


01 400? 


1 03063 


(1 ) 






133* 




001 


133" 






1340 






1341 




000 


1342 




001 


1343 


014004 




( 1 1 




001O07 


{ 1 1 


Oi 4004 


060610 


( ) ) 
134* 


01 4006 




( 1 1 




01010 


( 1 1 


014006 


11341? 


( 1 ) 
1345 


01 401 (» 




( 1 1 




001011 


( 1 1 


014010 


1 O04S4 


(11 
1346 


01401 2 




( 1 1 




001012 


( 1 1 
( 1 1 


1 4012 


0J06S0 


1347 


01 401 4 




(1 ) 




001 01 3 


( 1 1 


01401 1 


001620 


( 1 1 
1 34» 


014016 




( 1 1 




1 'M 1 


( 1 1 


1 40 1 6 


103<H4 


( ' 1 
134'- 


1 4020 




( ' 1 




DIM "II 

o o n ; i 



MACYU 27(1006) 14-DEC-76 1 6| 44 PAGE 6-63 
T«TA--FIRST CHARACTER OF HEADER 

.SBTTL TMTA--FIR5T CHARACTER OF HEADER 



,IF DF 
BRWRTE 
BP7 



SLOW 

BR i A A ! SP1 
RCVCK 



jSHIFT LEFT 



I REREAD STATUS 



.ENDC 

BRWRTE BR,SELA!SP10 
MICPC»MICPC+1 

<M0 VE 1 WRTEBP ■ BRKSELA J SP1 0» 



HICPC«MICPC+1 

<JUMPlBROCON[<NUMSYN«INITS3000*4>!<NUMSYN-INITS7 77/2>> 
BRSHFT 

MICPC»MICPC+1 

<M0VE1 SHFTBRI WRTEBR I SELB> 



I IF START MODE — EXIT 



BR4 IDLED 
MICPC»MICPC+1 

<JUMPlBR4CONJ<IDLE0"INIT63000»4>!<IDLE0-IHITS777/?» 



.IF DF 

BP1 



SLOW 
NUNSYN 



.ENDC 

.IF NDF SLOW 
KUMSYNl BRWRTE BR, <SELA1SP10> 
MICPCeMICPC+1 

<MOVE ! WPTEBR 1 PS ! <SELA 1 SP1 0» 



BR7 5S 
MTCPC»MICPCtl 

<JUMPiBR7CON!<5S-INTTS3000*4>!<5»-INITt,777/2>> 



j IF LINE HAS GONE IDLE SEND SYN 
»EL5E»-START TO SEND MESSAGE 



| READ LINE STATUS WORD 



j IF OK TO SEND — PROCEED 



| ELSE"- IDLE 



ALWAYS II 
MICPCnMICPC+1 
<JU«P1 ALCONr:<Ii-INITS3000*4>!<U-INIT&777/2» 



BPWRTF IBU5 i MODEM 
MICPC«MICPC+1 

<"OVE! WRTFRR! IB"S!<MODEM>> 
BRSHFT 

MICPC«MICPC+1 
<M0VE1SHFTBR! WHTEBRISELB> 



(ARE WE STILL SENDING? 



B°4 II 
MTCPCswiCPCfl 
<J!I»PIBP4CC!N1 <T i 

BRSPTK T w m, 3"> 3 
" TCPCi" Tf °C* 1 



jPTS SET? T V SO WE ARE--STJ 
»4>!<T1-I'/IT&777 /j» 

? 'ASK f- r.""« ""MSt IDLE 



DSCli f»DC»P PROTOCOL I "PLEMFNTATION 
DDCHGK , V AC 06-DEC-7ft 1 1 t 34 



MACY11 27(1006) 14-DEC-7S 16:44 PAGE 6-64 
TMTA— FIRST CHARACTER C1F HEADER 



PAGES 0130 



350 014072 




SP BRr AANDB» SP10 J IN LINE STATUS WORD 




00101 ft 


MICPCbHICPC+1 


CI) 01402? 


063270 


«MOVEJSPSJSPiAANDB!SP10> 


351 014024 




TSTATE TMTA1 




001017 


MICPC«MICPC+1 


CI) 014024 


000424 


<MOVEiWRT£BRSIf«5!«TMTAl»XNIT£77?/2» 




001 o?o 


MICPC«HICPC+1 


CD 01402fi 


063222 


<M0 VE J SPX I BR i SELB t SP2> 


352 0t4030 




BRWRTE I«»,12 




P0J02 1 


SICPC=KICPC+i 


CI) 014030 


000412 


<M0VE1 WRTEBP t IMM(<12>> 


353 014032 




SP BR,SELB,SP6 j STORE IN SP6 




001022 


MICPC»HICPC+1 


CI) "14032 


06322ft 


<H0VE1 SPX 1 BR ! SELB1 SP6> 


354 O1403* 




ALWAYS 11 ; BACK TO IDLE LOOP 




001023 


MICPC»HICPC+1 


CI) 014031 


100454 


<JU»*P! ALCONDi<Il-INITi3000»4>I<Tl"INITS777/2>> 


355 01403ft 




TMTA1 1 SP BR,DECA,SP6 } DECREMENT SY* COUNT 




001024 


MICPCrHICPC+1 


CI) 01403ft 


06316ft 


<M0 VE J SPX I BP I DEC A 1 SP6> 


35b 014040 




Z TMTEXT 




001025 


MICPC»HICPC*1 


CI) 01 4040 


1 1 1 432 


<JUMP1 ZCOND J<TMTEXT»INITt 3000*4> J<TMTEXT"INIT&777/2>> 


357 014042 




OUTPUT IHM,<1 10THTC0> jWSITE SOM TO TMTR COSTS 




00102ft 


»ICPC»MICPC+1 


CI) 014042 


00201 1 


<M0VESWR0UT1 IHIH<HOTMTCO» 


35S 014044 




BRWRTE IMM,226 J SYNC CHAP 




0O1O27 


MICPC*MICPC + 1 


Cll 01 4044 


000626 


<M0VE1 WPTEBRI IMH!<226» 


359 01404ft 




OUTPUT BRf <SELBITHTDAT> jSEND THE CHARACTER 




001030 


HICPCoHICPC+l 


CI) 01 404ft 


062230 


<MOVE I WPOUT i BR 1 <SELB i TMTO AT>> 


360 014050 




ALWAYS 11 




001031 


MICPC=«ICPC+1 


(11 I 405 


1 00454 


<JUMP! ALCOND! <I1"INXT&3000*4> !<Il"INIT&777/2>> 




000 


, ENDC 


362 014052 




TMTEXTi BRWRTE BR,<SELA|SP10> jUNNUMB MESSGE? 




001032 


MICPC«MICPC+1 


CI) 014052 


060610 


<MOVE!WRTEBR1BR!<SELAISP10» 


363 014051 




BRO TMTUN » IF SO —BRANCH 




001033 


MICPCbNICPC+1 


(1) 014054 


1 1 2043 


<JUVP!BR0CONi<TWTUN"MITS30O0»4>I<TWTUN-INIT&777/2» 



1361 014056 TSTATE TMTB 



DMCU nocip PROTOCOL IMPLEMENTATION 
DDCHGH.-SC 06-0EC-76 11*34 



MACY11 27C1006) 14-DEC-76 16J44 
TMTA— FIRST CHARACTER OF HEADER 



PAGE* 0131 



CI ) 




001034 




HICPC=MICPC+1 


CI) 


01 4056 


000451 




<MOV'ElWRTEBRlIMMJ<TKTB-INITS777/2» 


CD 




001 035 




MICPCsMICPC+1 


(1 ) 


01 4060 


OS3722 




<MOVE ! SPX 1 BR I SELB ! 5P2> 


1 365 


014062 






BRWPTF. BR.SELAISP1 JAPE WE IV BOOT 


CD 




00103ft 




MICPC»MCPC+1 


CI) 


01 406? 


Of.0f.01 




<M0VE1WRTEBR1BRI<SELAJSP1» 


Ct) 
136ft 


01 4064 






BR7 TMTBT > IF SO SEND DLE 


CI) 




001037 




HICPCaMICPC+1 


Ct) 


014064 


1 13447 




<JUMPlBR7CONl<TMTBT-INITt3000»4>i<TMTBT-INITS777/2» 


CI) 
1 367 


Oi4066 






BRWRTE IHM,201 ) ELSE STORE SOH 


(1 ) 




001040 




MICPCsMICPC+1 


(1) 


014066 


000601 




<HOVE!WRTEBR! IKMJ<201» 


CI) 
136R 


01 4070 




TMTA5I 


OUTPUT BR» <SELB 1 TMTD AT> »IN TMT SILO 


CD 




00104 1 




MICPC«MICPC + 1 


CI ) 


01 4070 


062230 




<M0 VE 1 WROUT J BP i <SELB 1 TMTD AT» 


CI) 

136<S 


5 407 2 






ALWAYS 11 


(1) 




001042 




mcpc»Hicpc+i 


CI ) 
CI) 


014072 


100454 




<JUMP1 ALCOND l<Il-INITS3000»4>KIl-INITt777/2» 


1370 


014074 




TMTUN I 


TSTATE TMTI 


(1) 




001043 




MICPC«MICPC + 1 


CI) 


014074 


OOOftlO 




<M0VE ! WRTEBR J IMM 1 <TMTI"INITS777 /2>> 


CI) 




001044 




HICPCbHICPC+1 


CI) 


01 4076 


06322? 




<MOVE 1 SPX 1 BR ! SELB J SP2> 


1371 


014100 






BRWRTE IMM,5 |ENC TO BR 


f 1 ) 




001 045 




MTCPC»MICPC+1 


( 1 ) 
CI ) 


01 4100 


O00405 




< MOVE J WRTEBP 1 IMMJ <5>> 


137? 


014107 






ALWAYS TMTA5 


CI) 




001046 




MICPC»HICPC+1 


C 1 ) 
CI) 


014102 


110441 




<JUMP1 ALCONDl<TMTA5-INITt3000»4>!<T«TA5-INITS777/2>> 


1371 


014104 




TMTBTl 


BRWRTE IMM.220 I WRITE A DLE TO BR 


C 1 ) 




001047 




MICPC»HICPC + 1 


C13 
(1) 


014104 


000*20 




<MOVE!WRTE8R1IMM|<220» 


1374 


014106 






ALWAYS TMTA5 J SEND IT 


C1 ) 




00105C 




MICPC»MTCPC+1 


CI) 
C1 ) 


1 4 1 (16 


1 10441 




<JU»P1 ALCPND!<TMTA5-INITt3000*4>l<TMTA5-INIT&777/2» 


137^ 
137ft 




001 




,IF DF SLOW 


1 377 






I 


BRWRTE BP,<SELAiSP10> jPEAD LINE STAT 


1378 








BR7 5S ; IF OK TO SENP- 


137 = 








ALWAYS 11 } ELSE"" IDLE 


13S0 






5S; 


BRWRTE IPUSf MOnEf |HRE WE STILL SENDING? 


1381 








BRS«FT 



DMCU DHC M P PROTOCOL IMPLEMENTATION 
DDCHGh.-UC 06-DEC-76 1U34 



MACYU 27(1006) 14-DEC-76 16:44 
TKTA--FIRST CHARACTER OF HEADER 



PAGE 7 



PAGE j 0132 



1383 BR4 II jRTS SET? IF SO WE ARE—STALL 

138* BRWP.TE IMM,373 I MASK TO TURN OFFLINE IDLE 

1389 SP BR,AANDB,SP10 J IN LINE STATUS WORD 

1386 TSTATE TMTA1 

1387 BRWPTE IMM.10 



DMCil ?rc^'P PPHTOrO!, IMPLEMENTATION MAC Yl 1 27( 1 006) 14-DEC-76 16144 PAGE 8 PAGE! 0133 



DDCHGH.- BC o<,-OEC-76 H|34 THTA— FIPST CHARACTER OF HEADER 

138° SP BRr SELPi SP6 ;STOPE IN SP6 

139^ TMTA1 1 SP BR,DECA,SP6 I DECREMENT SYN COUNT 

1391 Z TMTFXT 

139? OUTPUT IM«,<1 'OTMTCO> jWPITE SO* TO T"TP CONTRL 

1391 BRWPTE IMM.226 I SYNC CHAR 

1391 ALWAYS TMTA5 

130S 00f< .ENDC 



dmcu rrncMp pooTOcnt implementation 

DDCHGH.MAC 06-0EC-76 1U34 



99 014HO 



014110 

0141 17 

014112 

014114 

014114 

014116 

014116 
014170 

0141 20 

01 4122 

014122 

014174 

014124 

014126 

0141 76 

01 4no 

014130 
014132 
014132 
014134 
014134 
"! 4116 
01 41 36 
1 4 1 * 1 



001 051 
001 



070216 

ooo 



001053 
076612 



001054 
000476 



001055 
063222 



001056 
056224 



001057 
056225 



001060 
043227 



001061 
123200 



001062 
000620 



0010M 
063760 



001164 
003 306 



MACYU 27(1006) 14=BEC*7S 16S44 PAGE 8-j 
TMTB— OUTPUT FIRST CHAR OF COUNT 

.SBTTIi TMTB-.OUTPUT FIRST CHAR OF COUNT 
I 

TMTBl LOMA BR,SELAiSP16 
MXCPC»«ICPC*i 
»IF ION BR,TMM 

<MOVE ! LDMAR I IMM t <SEL Al SP16S 37 7» 
, IFF 

<M0VElLDMARlBRKSELAtSP16» 
.ENDC 

MEMINC IMM, 3 

SICPC=MICPC*1 

<MOVEJ WRHEM J INCMAR1 IMM I <3>> 

MEMINC BR, SELA 1 SP1 2 
MICPC«HICPC+1 

<M0VE!WRMEMlINC«ARIBRl<SEIiAJSP12» 

STATE TMTC 
HTCPC«HICPC+1 

<HOVElMRTEBP!IMMKTMTC-INITi777/2» 
TBOt SP BR,SEtB,SP2 
MICPC=MICPC+1 
<M0VEI5PXlBRiSELBlSP2> 

OUTPUT <MEMX1 IMCMAR>» SELB I IBA1 
MICPCsMICPC+1 

<MOVE J WROUT ! MEMX 1 INCM AR I <SELB ! IB Al » 

OUTPUT <MEMXIINCMAP>.SELBIIBA2 
MICPCaMICPC+1 

<MOVE ! WROUT i MEMX i INCMARKSELB I IBA2» 



PAGE! 0134 



I GETPOINTER TO NEXT TUT LINK 



I WRITE MSG TMTED TO FLAGS 

I PICK UP MSGNO 

t ADDRESS TMTR STATE 
j UPDATE IT 

J WRITELOWBYTEOFADDRESS 
j WRITE HIGH BYTE OF ADDRESS 



SP MEMX,SELB,SP7 jHIGH BYTE OF COUNT TO SP7 

HICPC«MICPC+1 

<MOVE J SPX I MEMX i SELB i SP7> 

|«AIT TO MASK OFF MEM EXT, BITS 

SP IBUS,NPR,SPO 

MICPCaMICPC+1 

<M0VE15PX!IBUSi«iPRtSP0> 

BPWRTE IMM, 220 

MICPC«HICPC+1 

<M0VE1HRTEBPIIMMJ<220» 

SP BR, AANDB, SPO 

MICPC»MICPC+1 

<MOVE1SPXIBR1AANDBISPO> 

SP IMM,300,SP6 
MICPCaMICPC+1 
<M0VE!SPX1I"H13001SP6> 

BRWPTE WEMXJ INCMAR, AANDB i SP6 
MICPC«MICPC+1 



! MASK FOR MXT 



I TURN OFF CC2 



DMC11 OOC'-'P PROTOCOL IMPLEMENTATION 
DDCHG^.'iaC 06-OEC-76 1W34 



tl 1 


014140 


054666 


( 1 ) 

141 3 

( 1 1 


014142 


001066 
042230 


C 1 1 
1413 
( 1 1 
( 1 ) 


014144 
014144 


001067 
00167." 


C 1 1 
1411 

( 1 ) 
( 1 1 


01 41 46 
01 41 46 


001070 
001620 


( 1 1 
141' 
f 1 1 
t 1 1 


014150 
014150 


00107 1 
0016?" 


C 1 ) 
1417 
(11 
f 1 1 
( 1 ) 


014152 
014152 


001072 
0Oi620 


141 P 

( 1 1 
( t 1 


014154 
014154 


001073 

06 n in 


( 1 1 

141-5 

f 1 1 
( 1 1 


014156 
014156 


001074 
043626 


( 1 1 

1470 
1471 
1477 
1473 
1 171 


014160 


on ! 

000 
001 


( 1 ) 
( 1 ) 


014160 


10O454 


1475 
1476 




ooo 



MACYJ1 27(1006) 14-DEC-76 16144 PAGE 8-2 
TMTB— -OUTPUT FIRST CHAR OF COUNT 

<MOVE! WRTEBR t MEMX I INCMAR 1 <A ANDB } SP6>> 



OUTPUT MEMX, SELB t TMTDAT 
MTCPCaMICPC*l 

<«QVE! "ROUT! MEMX l <SEliBlTMTDAT» 
BRSHFT 

MIC°C«MICPC+1 

<MOVE 1 SHFTBP J WRTEBR1 3ELB> 

BRSHFT 

MTCPC»MICPC+1 

<MOVEt SHFTBRJ WRTEBRISELB> 

BRSHFT 

MICPC«MICPC+1 

< MO VE1 SHFTBP ! WRTEBR I SELB> 

BRSHFT 

MICPC = MICPC + 1 

<MOVE i SHFTBR i 54PTEBR J 5EL3> 

OUT BR.A0RB10NPR 
MICPC»MICPC+1 

<M0VElWR0l'TXiBRi<A0RB10NPP» 

SPBR MFMX,SELB,SP6 
MICPCaMICPC+1 

<MOVEl SPBRX ! MEMX I SELB I SP6> 



PAGE: 0135 



jALSO WRITE COUNT TO TMTR SILO 



»SHIFT BITS INTO CORRECT POSITION 



| LOWBYTE OF COUNT TO SP6 



I »»»»♦! /21 /76 
I •*»*•! 0/21 /76 



.IF DF SLOW 
ALWAYS IDLE 
.ENDC 

,IF NDF SLOfc 
ALWAYS II 
MTrPC=MTCPC+i 

<JUMPJALCONDi<Il-INIT63000»4>l<U-INITt777/2» 
, ENDC 



DMC 1 ! 09C«P PROTOCOL IMPLEMENTATION 
ODCW^H.WAC 0S-0EC-7* 1 1 | 3 4 



MACYll 27 ( 1006) 14-DEC-76 16144 PAGE 8-3 
TMTO-OUTPUT SECOND CHAR OF COUNT 



PAGE ; 3136 



142? 
14?o 



1430 


014162 




( 1 1 




001 07(. 


f J ) 


01 41*2 


000477 


( 1 1 
1431 


014184 




( 1 5 




00107 7 


( 1 ) 


014164 


063667 


C 1 1 
1432 


014166 




C 1 ) 




001 100 


( 1 1 


014166 


062230 


( t ) 
1433 


014170 




< 1 ) 




001101 


< 1 ) 


014170 


000543 


( 1 ) 

14 3.1 


014172 




C 1 1 




00 1 1 02 


( i ) 


01 4172 


060376 


( 1 ? 

1415 


014174 




( 1 ) 




001103 


( 1 1 


014174 


111511 


C 1 ) 
143* 


01 4176 




( 1 1 




001104 


t 1 1 


0141 76 


000406 


( 1 1 
1437 


01 4200 




( 1 ) 




001105 


f 1 1 


014200 


063016 


( ' ) 
1 4 3P 


01 4202 




14 3* 




001 


t 44<1 






1341 






1 1 4? 




000 


14 13 




nn i 


1444 


01 420? 




( 1 l 




OOHOfi 


f 1 ) 


014202 


0O051 4 


( 1 1 




001 107 


f 1 ) 


014204 


0*3?2? 


1 415 


01 4206 




t 1 1 




0011 10 


C 1 1 


n 1 4 206 


100454 


1 4 If. 




000 


1417 


14 210 








0*1 1 1 1 


f 1 1 


"1 4?10 


1100471 



.SBTTL TMTC— OUTPUT SECOND CHAR OF COUNT 
> 

I MASK TO CLEAR MXT BITS 



BRWRTE IMM, 77 
MICPC«MICPC+1 
<*OVElWRTEBPi IMHI<77» 

SPBP BR,AANDB,SP7 

MICPC«MICPC+1 

<M0VElSPBRXlBRlAANDBiSP7> 

OUTPUT DP,<SELBlTHTOAT> 
MICPC«MICPC+1 

<MOVE IHPOUTIDPt <SELB 1 TMTD AT» 

BRWPTE IMM, TML8 

MICPCoMICPC+1 

<W0VEIWRTEBR1I«M|<TML8» 

CMP BR.SP16 

«ICPC«MICPC+1 

<SUBTC1BR1SP16> 



(CLEAR THEM 



>WRITE TO TMT SILO 



) GET WRAPAROUND ADDRESS 



I WRAPAORUND 



Z 10S 
MICPC-MICPC+1 

<JU«PUCOND!<108-IHITS3000*4>!<10«»INIT6777/2» 



BBWRTE IMM, 6 
MICPC«MICPC*1 
<MOVEJWRTEBPl IMMl<6» 

SP BP,ADD,SP16 

MICPC«MICPC*1 

<M0VE!SPXJ8Rl*DDJSP16> 



.IF DF SLOW 
STATE TMTD 
ALWAYS XEXIT 
.ENDC 

,IF NDF SLOW 
TSTATE TMTD 
MICPC»HICPC + 1 

<MOVElWRTEBPlIMMKTMTD-INITS,777/2» 

MICPCoMICPC+1 

<MOVE S SPX 1 BR 1 SELB1 SP2> 

ALWAYS II j***»OCTOBER 29, 1976 

MICPCaMICPC+1 

<JUMPlALCONDKIl»INITi3O00»4>S<Il-INITt777/2» 



I OFFSET TO NEXT LINK 



I UPDATE THE POINTER 



.ENDC 

SPWRTE IMH.TMLl 
MICPC«MICPC*1 
<MOVEJWRTEBR! IMMJ<TML1» 

SP BP,SELB,SP16 
MICPC*MICPC+1 



jGO BACK TO FIRST LINK 



DMC 1 1 nnC'^P PROTOCOL IMPLEMENTATION MACY11 27(1006) 14-DEC-76 16 1 44 PAGE 8-4 PAGE 1 0137 

oncH'jf-.MBr o*-Df:r-76 u»34 t«tc--cutpui second char of count 

{H (11471 2 0*3236 <MOVE I SPX ! BP 1 SELB 1 SP1 6> 

( 1 1 

1 ' 40 14214 ALWAYS 53 

(I) 001113 MICPCoMICPC+1 

(11 014214 J105O* <Jl'MptALCONr>S<5S»INITS3000*4>i<5J-INIT(i777/2>> 

t 1 1 



DMCM DDCMP PPOTOCOr IMPLEMENTATION 
DOCHCK.MAC 06-DEC-76 1 U 34 



MACY11 27C1006) 14-DEC-76 16 1 44 PAGE 8-5 
TMTD-- RESPONSE FIELD-NUMBERED MESSAGE 



PAGE: 0138 









14^3 


01 4516 




f 1 1 




001114 




014216 


o o 5 2 4 


1 454 


01 4220 




f 1 ) 




001 1 15 


t \ ) 


01 4220 

- 


063166 


( 1 ^ 






1 455 


n\ 4222 




( 1 1 




001116 


r 1 1 


11 4222 


111120 


C 1 1 






1 4 56 


014224 




f 1 ) 




001 1 17 


( 1 1 


01 4724 


0631 67 


CO 






1 457 


01 4226 




C 1 ) 




00 1120 






001 


( 1 ) 


014226 


010171 


( \ ) 






C 1 1 










000 


(i ' 








014230 




Ml 




001121 


t 1 ) 


014230 


042230 


( ! ) 






145? 
t "i 5 


014232 




(1 ) 


014232 


063222 


( t 1 






1 4*0 


014234 




f 1 ) 




001123 


( 1 ) 


0H234 


100454 


< 1 ) 







.SBTTL TMTD— RESPONSE FIELD-NUMBERED MESSAGE 

STATE TMTE 

MICPC»MICPC+1 

<MOVE!WRTEBRlIMM|<TMTE-INITS77?/2» 

SP BR,DECA,SP6 jADJUSRT COUNT FOR 

MlCPCeMICPC+1 

<MQ VE i S?X • BR i DEC A i SP6> 

C TD2 | NO OVERFLOW 

HICPC«HICPC+1 

<JUMPtCCOND!<TD2-INITt3000*4>i<TD2-INIT&777/2» 



TWO'S COMPLEMENT 



SP BR,DECA,SP7 

Miepc«Hicpc+i 

<«0VEJSPXIBR1DECA1SP7> 

TD2 J LDMA IMM,ISP11 
MTCPCbHICPC+1 
.IF IDN IMM.IMM 
<M0VEILDMARIIMMKISP116377» 
.IFF 

<MOVE!LDHAPiIMMKISPll» 
.ENOC 

TD3| OUTPUT MEMX.SELBITMTDAT 
MICPC»MICPC+1 

<M0VE1 WROUT i HEMX J <SELB 1 TMTDAT» 



I DECREMENT HIGH BYTE OF COUNT 



JRESP FIELD ADDR TO MAR 



jWRITE IT TO SILO 



XEXIT2: SP BP,SELB,SP2 
MICPP»MICPC*1 
<M0VEISPXIBR1SELB1SP2> 

ALWAYS II 
MICPCnMICPC+1 

<JUMPlALCONDi<Il-INIT63000»4>!<Il-INITS777/2» 



D»C11 nnc M P PROTOCOL IMPLEMENTATION 
DDC HGH .MAC 06-DEC-76 1 1 ! 34 



001 124 
1 23600 



MACY11 27U006) 14-DEC-76 16:44 PAGE 8-6 
TMTE— NUMBER FIELD— NUMBERED MESSAGE 



PAGE I 0139 



1 4*2 




1 '.6 3 


014236 


15 6 4 


014236 


d 1 




r 1 1 
( 1 1 


01 4236 


14h5 


01 4240 


t 1 ) 




f ! 1 


014240 


( 1 1 




1 1*6 


01 4242 


( 1 ) 




( ' ) 


014242 


( 1 1 




1 4r-7 


014244 


( 1 ) 




(15 


01 4244 


( 1 ) 




1 4ffi 


01 4246 


( 1 ) 


01 4246 


1 469 


014250 


( 1 t 




( 1 ) 


014250 


' 1 1 





001125 
102054 



001126 
060612 



001 127 
062230 



not 130 
000532 



001 131 
110600 



TMTE--NUMBER FIELD—NUMBERED MESSAGE 

1 READ NPR CONTROL REGISTER 

jBUSY - GET OUT 



SPBR IP-US, NPR, SPO 
MICPC«MICPC+1 

<MOVEiSPBRX!IBUSlNPR 



PRO II 
MICPCbMICPC+1 

<JUMPlBR0CON'l<Il-INITt3000»4>I<Il-INITi777/2» 

BRWRTE BR,SELAiSP12 
fICPC=MICPC+l 

<MQVE1 WRTEBR J BR ! <SELA J SP1 2>> 



OUTPUT BR, <SELB I TMTDAT> 
MICPC«MICPC+1 

<MOVElWROUTJBPi<SELBITMTDAT» 



(WRITE IT TO THE SILO 



STATE TMTF 
MICPCaMICPC+1 

<MOVEiWRTEBRiIMMi<TMTF-INITS777/2» 
ALWAYS TH3 
MICPC»MICPC + 1 

<JUMPIALCONDKTH3-INITt3000*4>l<TH3-INITi777/2» 



OMCU OP-CWf PROTOfOL IMPLEMENTATION 
DOCHGH.MAC 06-OFC-76 1U34 



MACYll 27fl006) 14-DEC-76 16:44 PAGE 8-7 
TMTF--NUMBERED MSG ADDRESS FIELD 



PAGES OS40 



t 471 






1 47? 






1 473 


01 4252 




C 1 ) 




0"l 1 32 


( 1 ) 


01 4252 


000537 


1 174 


01 4254 




' 1 > 




001 133 


C ' ) 


01 4254 


063222 


f 1 ) 
1 475 


01 4256 




(11 




001 134 


(1 ) 


014256 


000401 


( 1 ) 
1 476 




001 


1477 


014260 




< 1 ) 




001135 


( 1 > 
f 1 ) 


01 4260 


062230 


) 478 


01 4262 




( 1 ) 




001 136 


C 1 1 


14262 


100454 


( 1 1 

1 471 




000 


1 is 3 




001 


1 dR 1 






1 4<?7 




000 



• SBTTL TMTF— NUMBERED MSG ADDRESS FIELD 
( 

TMTF I STATE TF1 

MICPCnMICPC+1 

<MOVEl»RTEBRIIMM|<TFl»I»ITt777/2» 
TF2I SP BR»SELB#3P2 
MICPC«MICPC+1 
<MOVE t SPX 1 BP 1 SELB ! SP2> 

BRWRTE IMM,1 jlQAD ADDRESS 

MICPC«MICPC+i 

<MOVE JWRTEBR1 IMM!<1>> 

,IF NDF SLOW 
TF3t OUTPUT BP,<SELBJTMTD»T> 
MICPCfMICPC+1 

<hoveswroutjbri<selbitmtdat>> 

always ii 
«icpc«micpc*1 

<JUMPJALCOND!<Il«INIT&3000»4>!<Tl-INITS777/2» 
.ENDC 

.IF DF SLOW 
ALWAYS TMTA5 

• ENDC 



OM-ii onr^p ppnTnrnL implementation 

D^riirtH.-AC 0*,-r>*e«76 1H34 



MACYU 27(1006) 14-DEC-76 16:44 
TF1 -NUMBERED MSG HEADER EOM 



PAGEl 014! 



1 4P4 




1 105 


01 l?64 


(1) 




r 1 ) 


01 4264 


( 1 1 




1 1"6 


01 4266 


t 1 ) 




f 1 ) 


"1 4266 


' 1 ) 




1 mi 


01 4270 


1 1 5 




t 1 1 


* 1 4270 


( 1 ) 




. a do 




( 1 ) 




( 1 1 


01 4272 


( 1 1 




1 4 »<5 


01 4274 


( 1 ) 




< 1 ) 


01 4274 


( 1 1 




1 190 


014276 


( 1 5 




( 1 1 


01 4276 


1 4H 


O14300 


f 1 ) 




f 1 ) 


01 4300 


C 1 1 





011137 
000402 



001 140 
0*2231 



0HU41 
062210 



0"H42 
OJ0500 



OOJ 143 
1 1 2162 



(101 144 
000546 



001145 
1 10563 



. SBTTL TF1-NUMBERED MSG HEADER EOM 

BRWRTE IMM.,2 

MICPCaMICPC+1 

<MOVE ! WRTEBR 1 IMHi<2>> 

OUTPUT BR,<SELB10TMTC0> 
MICPC»MICPC+1 

<M0VE!WP0UT!BPKSELB10TMTC0>> 

OUTPUT BR,<SELBITHTDAT> 
MICPC«MICPC + 1 

<MOVE 1 WRO'JT 1 BRKSELB 1 TMTDAT>> 

RRBRTF. IBUS.IIBAl 
KICPCBMICPC + 1 

<MOVE I WRTEBR 1 IBUSKI IBA 1>> 



BRO TMTF1 
MJCPC=MICPC+1 

<JUMP!BPOCONl<TMTFl-INITt3000»4>l<TMTFl-INITt777/2» 

STATE TMTH 
MICPC«MICPC+1 

<MOVE 1 WRTEBR J JMH J <TMTH-INITt777 /?>> 

ALWAYS XFXIT 

MICPCbMICPC+1 

<JUMPIAI,COND!<XEXIT-INITt30O0«4>l<XFXIT-INITS777/2» 



|FOM MASK TO BR 



I UPDATE TMTP CONTROL REGISTER 



I OUTPUT A GARBAGE CHAR 



I READ LOU ORDER FROM INBA 



fIF ODD BYTE--BRANCH 



D'iril D^C M P PPOTOCnL IMPLEMENTATION 
DPCHGH .MAC 06-DEC-76 1 t : 34 



MACYil 27(10063 14-DEC-76 16:44 PAGE 8=9 
TF1-NUMRERED MSG HEADER EOH 



PAGE: 0142 



1493 












1 495 






! 196 


01 4302 




cn 




001 146 


tn 


014302 


123600 


cn 






1497 




001 


149? 


014304 




(1) 




001 147 


(1) 


014304 


113151 


(1) 

1 499 




000 


1500 


014306 




cn 




ooi 150 


(1) 


014306 


102054 


cn 






1501 


014310 




cn 




001151 


cn 


014310 


022010 


tn 






150/ 


014312 




(1 ) 




00U52 


cn 


014312 


023100 


( 1 ) 






1503 


014314 




( 1 ) 




00) 153 


CI) 


01 431 4 


062064 


(1) 






1504 


014316 




C 1 ) 




Ooi i54 


C 1 1 


01 4316 


063166 


CI) 






1505 


014320 




C1 ) 




001 155 


( 1 ) 


01 4320 


11 1160 


( 1 ) 






1506 


014322 




cn 




001156 


( 1 ) 


014322 


063167 


cn 






15 07 


"14324 




C 1 ) 




0C>1 157 


( 1 1 


01 4324 


1 15407 


C 1 ) 






1 50R 


ot 4326 




1 509 




001 


1510 


014326 




C 1 1 




001 J60 


cn 


01 4326 


020620 


c i ) 






151 1 


014330 




C 1 ) 




001161 


cn 


014330 


1 1 3165 


cn 

151 J 




000 



j»»*»»»»*«»»«TIHE CRITICAL PATH—MODIFY WITH GREAT CARE 
.SBTTL TMTH— ROUTINE TO OUTPUT DATA CHARACTERS 



SPBR ISUSfNPPiSPO 

*ICPC*HICFC+1 

<MOVEt SPBRX1 IBU5 J NPR1 SPO> 



• READ NPR CONTROL 



.IF SDF SLOW 
3R4 5S 
MICPC«MICPC*1 

<JUMPiBR4CONJ<5*«INITt3000«4>l<5S-INIT£777/2» 



»IF RECV NPR --PROCESS 



.ENDC 

BRO II 
MICPCaMICPC+1 

<JUHP!BR0CON J<Il-INITS3000*4>!<Il-INITi777/2» 



I IF NPR IN PROGRESS —BRANCH 



OUTPUT IBUS* <INDAT1 I TMTDAT> 
MICPC»MICPC+1 

< MOVE I WROUT! IBUSKINDAT1 1 THTDAT>> 

SP IBUS,IIBA1,SP0 

«ICPCaMICPC+l 

<MOVE! SPX! IBUS! IIBAUSPO 

OUTPUT BR,<INCA|IBA1> 
MICPCsMICPC+! 

<MOVE! WROUT 1BRKINCA! IBA1» 

SP BP,DECA,SP6 

MlCPCeHICPC+1 

<M0VEISPX!BR1DECA!SP6> 



C TH6 
MICPC«MICPC+1 

<JUMPlCCONDi<TH6"INITt3000«4>:<TH6-INITS777/2» 



) WRITE THE EVEN CHAR TO TNT SILO 



I READ LOW BYTE OF BA TO SP 



j OUTPUT INCREMENTED BA 



I DECREMENT CHARACTER COUNT 



I NO OVERFLOW 



SP BR,DECA,SP7 

MICPC»MICPC+1 

<MOVE 1 SPX t BP I DEC A I SP7> 



J DECREMENT HIGH BYTE OF COUNT 



■ hvtf rrmuT ?iron 



MICPCoMICPC+1 

<JUMPlZCONDl<HEHl-INITS3000*4>i<HEHl-INITS,777/2» 



.IF NDF SLOW 
BRWPTE IBl'S.TMTCON 
MICPCbMICPC+1 

<MOVE ! WRTEBP 1 IBUSl<THTCON» 



: READ TMTR CONTROL CSR 



BR4 TH9 
MICPC«MTCPC+1 
<JUMP!BR4CON!<TH9-INITt30O0*4>!<TH9-INTTS777/2>> 

,ENDC 



J IF MORE ROOM IN SILO— BRANCH 
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MACY11 
TMTH— 



1513 


014332 




C 1 ) 




001162 


CI) 


114332 


000565 


1514 




001 


1515 






1516 




000 


1517 




001 


1 6 1 S 


014334 




C 1 ) 




001 163 


(!) 


01 4334 


C63222 


C 1 ) 






1519 


01 4336 




C 1 ) 




001 164 


( 1 ) 


01 4336 


1 10454 


C 1 1 






1570 




000 


1521 


014340 




152? 




001 


1523 






1524 










000 


1526 


0! 4340 








on 1165 




014340 


072030 


1 527 


01 434? 








001 1 66 




(•1 434? 


023100 


1 5 2P 


01 4344 








001167 




014 344 


062064 


1529 


014346 








001 170 




"14346 


1 1 1 377 


1 5 30 


014350 








001171 




014350 


063166 


15 31 


014352 








001 172 




01 4352 


111175 


15 13 


014354 








0"1 173 




01 4354 


063167 


15 31 


014356 








001 174 




014356 


1 15407 
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ROUTINE TO OUTPUT DATA CHARACTERS 

STATE TMTHO 
MICPC*MICPC+1 

<MOVE!WRTEBPJIMMJ<TMTHO-INIT&777/2» 
.IF DF SLOW 
ALWAYS XEXIT 
.ENDC 

.IF NDF SLOW 

SP BR,SELB,SP2 

MICPC«MICPC+1 

<M0VE1SPX£BR!SELB!SP2> 
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TH9J 



;ST0RE NEW TRANSMIT STATE 



ALWAYS II 
MICPCaMICPC+1 

<JUMPJ ALCONDl<H-INITt3000»4>t <Il-INITS777/2» 
.ENDC 



.IF DF SLOW 
SPBR IBUS, NPR, SPO 
BRO II 
.ENDC 

OUTPUT IBUS,<INDAT21TMTDAT* 
MICPC*MICPC+1 

<M0VE1 WROUT! IBUS KIND AT21 TMTDAT» 

SP IBUS, IIBA1 fSPO 

MICPCaMICPC+1 
<M0VE1 SPX! IBUS! IIBAUSPO> 

OUTPUT BR,<INCAJIBA1> 
VICPC»MICPC + 1 
<MOVE! WR0UTIBR!<INCAIIBA1» 



»NPR BUSY 

;ODD CHAR TO SILO 

j READ LOW BYTE TO BA 

JuUTPUT THE INCREMENTED BA 



C HOINCH 
MICPC«MICPC+1 

<JUMP!CCOND!<HOINCH-INIT&3000#4>l«:HOIWH-INIT6777/2» 



SP BR,DECA,SP6 

MICPCaMICPC+1 

<«0VE1SPX:8R!DECA!SP6> 



C TH7 
MTCPC«MICPC+1 

<JUMP!CCONDl<TH7-INIT&3000»4>!<TH7-INIT&777/2» 



1 DECREMENT CHARACTERCOUNT 



JHO OVERFLOW 



SP BR,nECA,SP7 

MTCPCc^TCPC+l 

<M0VEISPX!BPIDECAISP7> 



jDecrehent high byte of count 



fcYTF COU'JT ZERO 



Z KFHi 
"ICPCsVTCPC+l 

<J"MP» Zcni"0!<HEHl-INITi3000*4>!<HFKl - INTTS777/2» 



on ! 176 
'1 4360 173600 



SPBP I pi.'S, NPP, SPO 
,! TC°C"»"TCPC*1 



(READ NPR REGISTER 
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( 1 ) 
1535 
1536 

(i : 
(ii 
( t : 



(t: 

1530 

< i : 
(i: 
cr 

1540 



1 544 
1 545 



( 1 ' 
1 546 



1541 
1 5 so 
t54<3 



014362 
01 4362 



014364 
nl 4366 

014366 

014370 

01 4370 

01 4372 

014372 

01 4374 

01 4374 

01 4376 

014376 

0) 4400 

01 4400 

01 4402 
014404 



001176 
112205 



001177 
000546 



OO1700 
063222 



001201 
OOQ556 



001202 
O63260 



0O1203 
0*1070 



001204 
100454 

001 

0O1205 
000575 
001206 
063222 

00 1207 
1 "0454 



.IF NDF SIOW 
BRO TH2 
HICPCeMICPC+1 

<JUHP!BROCONl<TH2«INITs3000*4>l<TH2-IHITt777/2» 



.ENDC 

STATE TMTH 
MICPCaMICPC+1 

<KOVE!WPTEBPJIHMKTMTH-INITt777/2» 

SP BP,SELB,SP2 

MICPC«MICPC+1 

< MO VE 1 SPX 1 BP ! SELB 1 8P2> 



I IF NPR BUSY WAIT TO GO 



I SAVE TSTATE 



(CLEAR CO AND CI 



(CLEAR THE BITS 



TH3XI BRWPTE IMM,156 
MICPC»MICPC+1 
<MOVE| WRTEBR ! IMMl<156» 

SP BR> AANDBt SPO 

MICPC«MICPC+1 
<MOVE I SPX I BR i AANDB 1 SPO> 

OUT BR,<INCA10NPR> 
MICPCaMICPCtl 

<VOVE!WROUTX!BR!<INCAtONPR» 

ALWAYS II 
MICPC«MICPC+l 

<JUMP1 ALCONDKIl-I»ITS3000»4>S<Il-INITi777/2» 

.IF NDF SLOW 
TH2J TSTATE TH7 

MICPCeMICPC+1 

<MOVE 1 WRTEBR I IMMS<TH7-INITS777/2» 

MICPC»MICPC*1 

< MOVE 1 SPX 1 BR ! SELB 1 SP2> 

ALWAYS II 

HICPCbMICPC+1 

<vTUMP!ALCONDl<Il-INITJi3000»4>I<Il»IHITt777/2» 
.ENDC 

j •••»**#»*»«#*»END TIME CRITICAL PATH»*««#«*»»*»»»»«****»«»«»*»»*» 



] o r T"E 



1551 




1 *52 


O14406 


( 1 1 




( 1 ) 




( 1 ) 


01 4406 


( 1 » 
( 1 ) 




i 1 ) 




' 1 1 




1 5"=. 3 


14 410 


( 1 1 




( 1 ) 


14410 


' 1 ) 




« 5 s 1 


01 4412 


(1) 




(1 ) 


01 4412 


1 555 


014414 


( 1 1 




( 1 ) 


014414 


( I ) 




1 *56 




1 *S5 7 




155? 


011416 


f 1 1 




(1) 




( ' ) 


01 4416 


(t) 




(1) 




( 1 ) 




f 1) 




1559 


01 4420 


(1) 




( 1 ) 


"1 4420 


1560 


014427 


r 1 1 




( 1 1 


014422 


( 1 1 
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TMTI — SEND UNNUMBERED TYPE FIELD 

, SBTTL TMTI--SEND UNNUMBERED TYPE FIELD 
TMTII LDMA IMM,T 
MICPCaMICPC+1 
, IF IDN IMM,IMM 
<MOVElLDMAR!IHMKTt377» 
.IFF 

<MOVElLDMAR| IMM1<T» 
.ENDC 

SP MEMXi SELBi SP6 

*ICPC*MICPC+1 
<MOVE I SPX 1 MEMX • SELB i SP6> 



PAGE! 0145 



j ADDRESS OF TYPE FIELD TO MAR 



jCOPY IT TO SP6 



STATE TMTJ 
MICP C»MICrC+ 1 

<MOVEt WRTEBR I IMMKTMTJ-INIT&777/2» 

ALWAYS TD3 

MICPC»MICPC+1 

<JUMptAI,COKDi<TD3-INITt3000»4>!<TD3-I«ITt777/2» 



I 

.SBTTL TMTJ— SEND SUB-TYPE FIELD 

LDMA IMM,ST 

MICPC«MICPC+1 

.IF IDN IMM,IMM 

<MOVE t LDHAP 1 1 MM 1 <STt377>> 

.IFF 

<MOVE ! LDMARS IMM!<ST» 
.ENDC 



STATE TMTK 
MICPCeMICPC+1 

<MOVE!WRTEBPHMM><TMTK-INJT&77 7/2» 

ALWAYS Tf!3 

MICPC»MICPC+i 

<aUMPlALCOND!<TD3-INITt300O«4>!<Tn3-INITs777/2» 



I ADDRESS OF SUB-TYPE FIELD TO HAR 
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PAGES 0146 



1 *64 


014424 




( 1 1 




001217 


( 1 ) 


014424 


000403 


(1) 






1 565 


1 4426 




f 1 1 




001 220 


r i ) 


014426 


060346 


( ' 1 
1566 


ni 4430 




( 1 ) 




011221 


C 1 ) 


01 4430 


000625 


C 1 1 




001 222 


( 1 ) 


014432 


063222 


1567 


014434 




( 1 ) 




001223 


1 1 ) 


"1 4414 


J11232 


( 1 ) 
1569 


01 4436 




f 1 ) 




001224 


C 1 ) 


01 44 36 


1 1 0520 


( 1 1 












1570 






1*71 


01 4440 




1 1 ) 




001225 


( 1 ) 


01 4440 


000637 


en 




001226 


c » ) 


014442 




1572 


014444 




f 1 1 




001227 


cn 


01 4444 


000403 


( 1 ) 

1573 


01 4446 




f 1 1 




001230 


( 1 5 


01 4446 


06O366 


f 1 ) 






1*74 


01 4450 




( ! ) 




0O1231 


( 1 1 


01 4450 


1 1 1635 


( 1 ) 






1575 


014452 




f 1 1 




001232 


( 1 1 


014452 


000*00 


f 1 ) 






1 *7S 




001 


1 "577 






157S 




000 


1 57« 




001 


IS 3 "' 


014454 




( 1 > 




001233 


( 1 1 


014454 


Of.2230 


f 1 ) 






1 •= a 1 


01 4456 





.SBTTL TMTK-- OUTPUT RESPONSE FIELD (UNNUMB MSG) 

I WRITE A 3 TO BR 



BRWRTE IMH»3 
MICPC«HTCPC+1 
<K0VE|HRTEBP1I«HI<3» 

no? 8P,SU8,SP6 

«ICPC«HICPC*1 

<BRISUB!SP6> 



»IF TYPE LESS THAN 3 



TSTATE TMTL 

*iepe»niepc-M 

<MOVElWRTEBRIIMHl<TMTL-INITt777/2>> 

MICPC«MICPC*1 

<M0 VE I SPX J BP i SELB 1 SP2> 

C TMTLO 

MICPC»MICPC+1 

<JUMPiCCONOKTMTL0-INITt300O*4>l<T«TL0-INIT4777>'2» 

ALWAYS TD2 
HICPC«HICPC+1 

<JU«PlALCOND!<TD2-INIT63000»4>i<TD2-INITt777/2» 



, SBTTL TMTL— UNNUMB MSG NUMBER FIELD 

TSTATE TMTM 

MICPC«MICPC+1 

<MOVE!WRTEBRIIMMKTMTM-INIT&777/2» 

MICPC*MICPC+1 

<«0VEiSPX!BR!SELBlSP2> 

BRWRTE IMM.3 

MICPC»MICPC+i 

<M0VEiWRTEBR!IMM|<3» 



CMP BR,SP6 

«1CPC«MICPC+1 

<SUBTC!BR1SP6> 



j IS MESSAGE REP 



I YES 



Z THTL1 
MICPC«MICPC+1 

<JU«PJZCONDJ<THTLl»INITt3000«4>!<THTLl-INIT&777/2» 



BRWRTE IMM.O 
MICPCaMICPC*l 
<MOVEl WRTE8R! IMM J<0>> 

,IF DF SLOW 
ALWAYS TMTA5 
.ENDC 

.IF KDF SLOW 

OUTPUT 8R» <5ELB5 TMTDAT> 
M1CPC»MICPC+1 

< MOVE J WROUT 1 BR t <SELB I THTD AT» 

ALWAYS II 
MICPC«MICPC+1 



t ADDRESS CONTNAT OF ZERO 



|SE:iD IT OUT 



1 BACK TO IDLE LOOP 
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001235 
060572 
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TMTL--UNNUM8 MSG NUMBER FIELD 



PAGE 8-14 



PAGE : 0147 



C 1 1 


01 4456 


f 1 1 




158? 




15#3 




1 


01 4460 


C 1 ) 




r 1 1 


014460 


r i •> 




1585 


01 4462 


(1 1 




( 1 1 


01 4462 


f 1 1 




1 sa^ 





001 736 
1 1 0441 



< JUMP J ALCONDi<Il-INIT63000»4>KH-I>jITS,777/2» 
, FNDC 

BRSSRTE BR.DECAISP12 jWRITE A RESPONSE 

MICPCaMICPC+1 

<M0VEJWRTEBP!BRJ<DECAISPi2» 

ALWAYS TMTA5 
MICPCeHICPC+1 

<JUMPlALCONDi<TMTA5-INITS3000»4>!<TMTA5-INIT&777/2» 
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TMTM—UNNUMB MSG— STATION ADDRESS 



PAGE I 014S 



1589 

[ 1 : 



1596 



014464 
014466 

014466 

014470 

014470 

014472 

014472 

014474 

014474 

014476 

014476 

014500 

014500 

014502 

014502 

014504 

014504 

01 4506 

01 4506 

014510 

014510 

014512 

014512 

014514 

014514 

01 4516 

014516 



001237 
000641 



001240 
1 10533 



001241 
000402 



001242 
062231 



001243 
062230 



001244 
000404 



001245 
063710 



001246 
060530 



001247 
113653 



001250 
000776 



001251 
063270 



001252 
110740 



001253 
000576 



001254 
1 10551 



.SBTTL TMTM—UNNUMB MSG—STATION ADDRESS 
TMTM I STATE TNEOM 
MICPCbMICPC+1 

<M0VE!WRTEBBilMM|<TNE0M»INITi777/2» 

ALWAYS TF2 

MICPCbMICPC+1 

<Jl1MPlALCONDl<TF2«INm3000*4>l<TF2-INITJ.777/2» 



BRWRTE IMM.2 
MICPOMICPC+1 
<M0VE1WRTERP!IMM1<2» 

OUTPUT BR,<SELB10TMTC0» 
MICPCbMICPC+1 

<MOVE 1 WROUT 1 BR 1 <SELB10TMTC0>> 

OUTPUT BR,<SELBITMTDAT> 
MICPC«MICPC+1 

<M0 VE 1 WROUT 1 BP S <SELB1 TMTDAT>> 

BRWRTE IMM,4 
MICPCbMICPC+1 
<M0VE1HRTEBR|IMM1<4» 

SPBR BR,AORB,SP10 

MICPC»MICPC+1 

<MOVE 1 SPBPX I BR 1 AORB 1 SP1 0> 

BRWRTE BR,AAJ5P10 
MICPC«HICPC+1 

<MOVE I WPTEBP 1 BR i <AA ! SP1 0>> 



BR7 10$ 
MICPCbMICPC+1 

<JUMPiBR7CON!<10l-INITS3000*4>!<10«-INITS777/2» 



t END OF MESSAGE TO BR 



j OUTPUT A GARBAGE CHARACTER 



I SET UP LINE HAS GONE IDLE MASK 



I UPDATE LINE STATUS NORD 



I SHIFT STATUS LEFT 



»IF HDX SET— BRANCH TO CLEAR OK TO SEND 



BRWRTE IMM.376 

MICPC«MICPC+1 

<MOVEtWRTEBRUMMl<376» 

SP BR,AANDB,5P10 

MICPC"MICPC+1 

<MOVE 1 SPX ! BR ! Af.NDB 1 SP1 0> 



ALWAYS TE0K2 
MICPC-MICPC+1 

<JUMPJALCOND!<TEOM2-INIT(i3000«4>l<TEOM2-INITS777/2» 



j MASK TO TURN OFF UNNUMB PENDDING 



I MASK TO LINE STATUS WORD 



BRWRTE IMM.176 

MICPC«MICPC+1 

<M0VE1WPTEBR1IMMI<176» 



;CLEAR OK TO SEND AND UNNUMB PENPENDING 



ALWAYS 5« 
MICPC»MICPC+1 

<JUMP!ALCONDl<5S-INITS3000»4>l<5S-INITS777/2» 
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1601 
160 
160 
160 
( 



t 
( 

160=1 
1609 
16 



( 
( 

16 

( 
( 
( 

16 

( 
( 
( 

16 
( 
C 
( 

162 
( 
( 
( 

162 

( 
( 



014570 

001255 
014520 000577 



01 452? 

45??. 

014524 

01 4524 

014526 

01 4526 

014530 

014530 

01 4532 

01 453? 

014534 

014534 

014536 

014536 

P1 4540 

0145*0 

01 454? 

01 4542 

014544 

014544 

01 4546 
11 4546 



001256 
f>* 1 ?7 1 



001257 
060601 



001260 
102051 



001261 
103451 



001262 
063175 



001263 
111670 



001264 
060610 



001265 
1 16731 



001266 
1 16 331 



001767 
1 no** 1 



nnl 270 
oooanj 
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TIMSRV--TIMEOUT ROUTINE—SENDS REP 



.SBTTL TIMSRV— TIMEOUT ROUTINE— SENDS REP 



PAGE! 0149 



.ENABLE LSB 
BRWRTE IMM.177 
MICPC»MICPC*1 
<M0VE1WRTEBR1 IMM1<177» 



OUT BP, <AANDB I OBR> 

MICPCbMICPC+1 

<MOVE ) WROUTX ! BR ! < A ANDB 1 OBR» 

BRWRTE BR,SELA!5P1 
MICPCbMICPC+1 

<M0VE!WRTEBR:BRXS£LA!SP1» 



j MASK OFF BR REQ 



jRESET TIMER— SLICK MOVE 
I SINCE TIMER IS RESET BY WRITING 
tA 1 AND THE EXPIRATION LOOKS 
(LIKE 1— VOILA 
j AND THE BIT ON 



| READ STATUS BYTE 



BRO IDLE 
MICPCbMICPC+1 

<JUMPlBBOCONl<IDLE-INITt3000«4>KIDLE-INITfc777/2» 



BP7 IDLE 
MICPCaMICPC+1 
<JUMPlBR7CON!<IDLE-INIH3000»4>i<IDLE-INITt777/2» 



I IF IN MAINT, MODE DISABLE TIMER 



SP BR,DECA,SP15 

MICPC»MICPC+1 

<M0VElSPXIBRlDECAiSP15> 



Z 20$ 
MICPCaMICPC+1 

<JUMPUCOND:<20S-INIT43000#4>i<20S-INITi777/2» 



I DECREMENT THE COUNTER 



) IF ALL ONES HAS EXPIRED 



BRWRTE BR.SELAISP10 
MICPCbMICPC+1 

<MOVE 1 WRTEBR 1 BR KSEL A J SP1 0» 



I READ LINE STATUS 



I NUMBERED MESSAGE IN PROGRESS 



BP1 TABUPD 
MICPCbMICPC+1 

<JUMPlBRlCONl<TABUPD-INITS3O00»4>KTABUPD-INITi777/2» 

BRO TABUPD jUNNUMBMSGIN PROGRESS 

MICPCbMICPC+1 

<JUMPlBR0CONt<TABUPD-INIT6 3000«4>i<TAB'JPD-INITt77 7/2» 

ALWAYS IDLE I ELSE BACK TO IDLE LOOP 

MICPC*MICPC+1 

< JUMP | ALCONDK IDLE- 1 NITt300O»4>:< IDLE-IN I Ti777/2» 

TIMF1 ! 

20S! BPWBTK JMM,2 ,r 

MICPCbMKPC + 1 
<*OVF ! WBTERP ! IV ! <2>> 
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TIMSRV— TIMEOUT ROUTINE— SENDS REP 



PAGES 0150 



1624 
(15 
(1) 
(1) 
1625 
1626 
( 1 ) 
(1) 
(1) 
1627 
CI) 
(1) 
(11 
1628 
162? 
1630 
1631 
1632 

ci : 
:i: 
:ii 

1633 



1634 
[1 " 



163P 



014550 
014550 

014552 
014552 
01 4554 
014554 



014556 
014556 
014560 
014560 
014562 
014562 
01 45£4 
014564 
01 4566 
014566 
01 4570 

01 4570 



001271 
063235 



001273 

06371 



000 
001 



001274 
001620 



001275 
103111 



001276 
060572 



001277 
060377 



001300 
111733 



001301 
001 
010151 



"14572 

00130? 
014572 016403 

01 4571 

00! 303 
014574 01670O 



SP BR,SELB,SP15 

MICPCsHICPC+1 

<M0VEJSPX!BP!SELBSSP15> 

.IF NDF 81.0* 
BRWRTE IMM, 201 
MICPCbKICPC+1 
<«OVE!WRTEBPlIHHJ<20i» 

SPBP BP,A0PB,SP10 
MICPC»HICPC+1 

<MOVE 1 SPEPX I BR J AQRB JSHO* 1 



SLOW 

DP,<SELAISP10> 



.ENDC 
.IF DF 

BRWRTE 
.ENDC 
BRSHFT 

MICPCaHICPC+1 

<M0 VE 1 SHFTBP 1 HPTEBR 1 SELB> 



BR4 B51 
MICPCbMICPC+1 

<JU"PiBR4COM<BSl-INI«3000»4>!<BSl«INITS777/2» 



jPESET THE TIMER TICK COUNT 



j SET OK TO SEND AND 



jUNNUM MSG PENDING 



J READ LINE STATUS WORD 



>IF IN START MODE--BRANCH 



BRWRTE BP/DECA1SP12 
HICPC«MICPC+1 

<M0 VE 1 WRTEBR 2 BR I <DEC A I SP1 2» 

CMP BR.SP17 

MICPC»HICPC+1 

<SUBTC|BRI3P17> 



(GET LAST NUMBER SENT 



j COMPARE TO LAST ACKED 



jIF EQ —SEND ACK 



Z SNDACK 
MICPC»MICPC+1 

<JUMPIZCO»DJ<SNDACK-INITt3000»4>KSNDACK-INITt777/2» 



1640 014576 



O01304 
001 



LDMA IMM.T 
MICPC«MICPC+1 
.IF IDN IHM.IMM 
<MOVEtLDHAP! IMMKTt377» 
.IFF 

<MOVE 1 LDMAR 1 1 MM KT» 
,ENDC 

MEM INC IMM, 3 
HICPCeMICPC+1 

<M0VE]WRMEM1INCMAR1IMH1<3» 

MEMINC IMM,300 
MICPC»MICPC + 1 

<MOVE I WPMEM I INCMAP 1 IMM J <30 0» 

LDMA IMM.REPCS 
MICPC*MICPC+1 
,IF IDN IMM, IMM 



t LOAD ADDRESS OF TYPE FIELD IN UNNUMB SK 



1 LOAD REP TYPE 



JZEPO THE SUB-TYPE 



; CUMULATIVE REPS RECD 
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(1 
164 

(1 

(1 

(1 
1642 

(1 

CI 

(1 
164 

(1 

(1 

(1 

(1 

(1 

(1 

(1 
1644 

(1 

(1 

(1 
1645 

(1 

(1 

(1 
1646 

(1 

(1 

(1 
164 

n 
(i ) 

164P 
1649 
1650 
1651 
1652 

cn 

(11 
( 1 1 
1651 
1654 



014576 010015 



O14600 

001305 
014600 043220 

01 4602 

001306 
014602 0112460 

054604 

001307 
001 

014604 010003 



01 4606 

001310 
014606 040620 

014610 

00131 1 
O14610 061620 

"1461 2 

001317 
01*612 062620 



"00 

014616 

001314 
014616 100451 



JCOPY IT TO SPO 



) INCREMENT IT 



<MOVE!LDMAP!IMMJ<REPCSS377» 
.IFF 

<M0VE1 LDMAR i IMM' <REPCS» 
.ENDC 

SP MEMX, SELB, SPO 

MICPC«MICPC+1 

<MOVE t SPX 1 MEMX 1 SELB 1 SPO> 

MEM BR,INCA!SPO 
MICPC«MICPC+1 

<MOVE!WRMEM!BR!<INCAlSP0» 

LDMA IMM, REPST 

MICPC*MICPC+1 

,IF IDN IMM, IMM 

<MOVE ! LDMAR! IMM I <REPSTt 377>> 

, IFF 

<M0VE1LDMAR! IMMJ<REPST» 
.ENDC 

BRWRTE MEMX, SELB 

MICPC«MICPC+1 

<MOVE! WRTEBR! MEMXKSELB>> 

BSHFTB 

MICPCsMICPC+1 

<MOVE ! SHFTBP ! SELB ! BR> 

MEM BP i SELB 

MICPCrMICPC*! 

<MQVE J WRMEM !BP!<SELB>> 



BPO RTH3ES 
MICPCaMICPC+1 

<JUMP!BR0CON!<RTHPES-INITt3O00»4>i<PTHRF,S-INIT5,777/2>> 



! ADDRESS DYNAMIC REP COUNTER 



»COPY IT TO THE BR 



SLOW 

IMM, 201 

BR,A0RB,SP10 



j MASK KOP OK TO SEND 
(OR IT IN 



.IF DF 

BRWRTE 
SP 

.ENDC 

ALWAYS IDLE 
MTCPC*HICPC+1 

<JUMP! ALCONn!<IDLE-INITS3000»4>!<IDI.E-IMIT&777/2>> 
.DSABLE LSB 
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165ft 


0146?" 


(1) 




cn 


01 4620 


CD 




1657 


014622 


(1) 




cn 


014622 


cn 




165* 


01 4624 


cn 




cn 


014624 


cn 




165<5 


014626 


(1 ) 




cn 


014626 


cn 




166 


014630 


cn 




1 1 1 


'U 4630 


(U 




1661 


01463? 


cn 




cn 


014632 


cn 




1662 


01 4634 


cn 




ci ) 


014634 


cn 




1663 


"14636 


cn 




cn 


014636 


cn 






1 4^ 4 


cn 




M 1 




cn 




C1 1 




cn 


014640 


cn 




Ci i 
1665 


014642 


C 1 ) 




CI ) 


014642 


CI ) 




166*- 


"14641 


C 1 1 




CI 1 


014644 


cn 




166T 


01 4646 


( 1 1 




cn 


01 *646 


C t 1 




166& 


01 4650 


cn 




CI ) 


014650 


C ' 1 





001315 
1 20620 



001316 
106351 



001317 
000402 



001 320 
062231 



001321 
062230 



001322 
060601 



001323 
113762 



001374 
063072 



001 325 
001 



070216 

000 



001326 
040620 



001327 
1 12340 



001 330 
000775 



001331 
063670 



TEOM) 



BRWRTE IBUS,UBBR 
MICPCcMICPC+1 
<MOVE.WRTEBR! TBUS[<UBBP» 



> NON-EXI STANT MEMORY 



BRO NXMERP 
MICPCsMICPC + 1 

<JUMPiBR0CON!<NXMERP-INITt3O0O«4>i< , IXMERP-INITS777/2» 



BRWPTE IMM.2 
MICPCaMICPC+1 
<M0VE1WRTEBP1 IMK!<2» 

OUTPUT BR t <SELBJOTMTCO> 
MICPC«MICPC+1 

<M0VE t WROUT ! BR 1 <SELB I OTMTC0» 

OUTPUT BR,<SELB1TMTDAT> 
MICPC»MICPC+1 

<M0VE 1 HROUTJ BR! <SELB ,TMTDAT» 

BRWRTE BR,SELAISP1 
MICPC=MICPC+l 

<H0VEIHRTEBRIBR!<SELA1SP1» 



(EOM TO BR 



>WRITE TMTR CONTROL 



I WRTTE GARBAGE DATA 



jCKECK TOR BOOT MODE 



;.— IF SET IS MAINT MSG 



BR7 BTEOM 
HICPCaMICPC+1 

<JUMP!BR7CONl<BTEOM-IKITt3000»4>l<BTEOM"INITti777/2» 



J INCREMENT THE MESSAGE NUMBER 



j ADDRESS LAST TMT LINK 



SP BP,INCA,SP12 
MICPC*MICPC+1 
<M0VE!SPXiBR!lNCAISPl2> 

LDMA BP. SELA1SP16 

MICPCbMICPC+1 

,IF IDN BR.IHH 

<M0VElLDMAP!IMM.<6ELAJSPi64377» 

a IFF 

<M0VEILDMAP!BRJ<SELA:SP16» 
.ENDC 

BRWPTE MEMX.SELB 

MICPCbMICPC+1 

<M0VE!WPTEBR1MEMX1<SELB» 



BRO TE0M2 
MICPCbMICPC+1 

<JUMPlBR0CONt<TEOM2-INIT43000»4>!<TEOM2-INIT&777/2» 



BRWRTE IMM.375 

MICPC»MICPC+1 

<M0VE1 WRTEBR! IMMJ<375>> 

SPBR BRf AANDBf SP1 
MICPC-MICPC+1 

<MOVE1SPBPXJBR1AANDB.SP10> 



>TURN OFF MESSAGE PENDING 
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166° 


014652 




CI 1 




001333 


cn 


014652 


1 12340 


( 1 > 






167" 






1671 


01 4654 




( 1 ) 




001333 


(1 1 




001 


cn 


014654 


010151 


C ' 1 

1 1 ) 






c i ) 




000 


1 1 1 






167? 


014656 




t 1 1 




001334 


( 1 ) 


014656 


016401 


C1 1 






16T3 


014660 




t 1 ) 




001335 


( 1 > 


014660 


000405 


r 1 ) 






167-1 


014662 




f 1 ) 




001336 


t I ) 


014662 


016700 


C 1 ) 






167S 


014664 




cn 




001337 


f 1 ) 


014664 


063310 


C 1 1 






J 67h 






lf.77 




001 


1670 






167 r ' 






1680 




000 


16°1 




001 


16S7 


Ot 4666 




f J ) 




001340 


C 1 1 


014666 


O0O403 


cn 




001 341 


C 1 ) 


01 4670 


063222 


16S1 


01467? 




C 1 1 




00 1 342 


C 1 1 


01 467? 


100454 


f 1 1 






16P 1 




ooo 


16«5 


01 4674 




( 1 1 




001 343 


( 1 ) 


01 4674 


1 2060O 


C ' 1 






16*fc 


ni 1ft7K 




( 1 1 




00 1 344 


( 1 ) 


o) 4*76 


1 0? i«i 1 


( 1 .1 
lf.s-7 


01 47<ir 








P '■ 1 US 


f 1 ' 


014 7 


-1 7 r. 'i 



BRO TE0M2 »IF UNNUMB PENDING—GO AWAY 

MICPCeMICPC+i 

<JUMPlBR0CnN!<TEOH2-INIT43000»4>!<TEOM2-INITs7 77/2>> 

.SBTTL SNDACK-- ROUTINE TO SEND AN ACK 
SNDACKt LDMA IMM.T 
MICPCeMICPC + 1 
,IF IDN IMM,IMM 
<M0VElLDMAR!IMM.<TtJ377» 
.IFF 

<MOVEl LDMAR 1 IWM J <T>> 
.ENDC 

MEMlkC iMM.l 
MICPCbMICPC+1 

<M0VEIWRMEM!INCM»RIIMMJ<1» 

BRWRTE IMM.5 
MICPCaMICPC+1 
<MOVE t WRTEBR 1 IMM | <5» 

SA2i MEMINC IMM, 300 
MICPC«MICPC+1 

<M0VE1WPMEM> INCMAR1IHMJ<300» 

SA3I SP BR,AORB,SP10 
MICPCsMICPC+1 
<MOVE1SPXIBR!AORBISP10> 



.IF DF $LOW 
STATE TMTA 
ALWAYS XEXIT 
.ENDC 

.IF NDF SLOW 
TSTATE TMTA 
MICPCaMICPC+1 

<M0VEIWRTEPR1 IMM J <TMTA-INITIi7 77 /?» 

MICPC*MICPC*1 

<M0VE1SPX!BR1SELBISP2> 

ALWAYS II 

MICPCbMICPC+1 

<JUMP1 ALCONni<Il-INITt3000*4>!<Il-I«JITfc777/2» 



. FNDC 

HRWPTE IBUS»NPfl 

«ICPC«MICPC+1 

<MOVE! WPTFRR ! I3USI<NPR>> 



[READ NPR CONTROL 



; IF NPR GDI NG---LEAVE 



P»o idlf; 
f-iICPC"MTCPC + i 

<JI'MP.BR0Cnni<IDLE-INITi3OOO»4>!<IPI.F-IMTl777/2>> 



K»-*»TE PPit.r>MAR,SELAlSP4 

"TCPC='-iicrr n 

<*-nvz > *•!.-• 7 F RR,LD»"AP><SET.t , 



1 ODCMP PROTOCOL IMPLEMENTATION 
C6=DEC=76 11834 



DDCHGK 


MAC 


(1) 




16S8 


014702 


cn 
(1) 


014702 


1689 


014704 


m 

(15 


014704 


(i) 
1690 


014706 


(1) 
(1) 


014706 


C ! 3 
1691 


014710 


(1) 
f 1) 


014710 


( 1 5 
1692 


014712 


1 1 1 

cn 


014712 


( 1 ) 

1693 


014714 


(15 
( 1 5 


014714 


(15 
1694 


014716 


( 1 5 
( 1 5 


014716 


(11 
1695 


014720 


( 1 5 
( 1 5 


014720 


f 1 5 
1696 


014722 


(11 
( 1 5 


014722 


( 1 ) 
1697 


014724 


(1 5 
( 1 5 


014724 


( 1 5 
1698 


P14726 


( 1 5 


014726 


( 1 5 
1699 


014730 


( 1 5 
( 1 5 


014730 


( 1 5 




( 1 5 

C 1 5 


014732 


( 1 5 

noi 


014734 


( 1 1 
( 1 5 


014734 
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j IF SET - READ BACK ALL 200 



BR7 BS2 
MICPC»MICPC+1 

<JUHPlBR7CONl<BS2-INIT&3000»4>i<BS2!»INITS777/2» 



MEMINC IBUSf INDAT1 
MICPC-MICPC+1 

<MOVEJ WRMEM 1 INCMAR1 IBUS ! <IND ATI >> 

MEMINC IBUSf INDAT2 Ii 
MICPC«MICPC*1 

<M0VE2 WRMEM 1 INCMAR J IBUS 1 <INDAT2>> 



J OTHERWISE RESTORE TWO BYTES 



BRWRTE IMM,2 
MICPC"MICPC+1 
<H0VE1 WRTEBR 1 IMM J<2» 

SP BR,ADD,SP4 

MICPCbHICPC+1 

<M0 VE 1 SPX J BR I ADD I SP4> 

SP IBUS,IIBA1,SP0 

MICPC"NICPC+1 

<M0VEJSPX1IBUS1IIBA11SP0> 

OUTPUT BR f ADDSIBA1 
MICPC»HICPC+1 

<MOVE I WROUT 1 BP t <ADD 1 IBA 1 » 

SP IBUS,IIBA2,SP0 
MICPC»HICPC+1 

<MOVEJ5PX;IBU51IIBAZ15PO> 

OUTPUT BR, AC! IB A2 

MICPC«HICPC+1 

<M0 VE 1 HROUT 1 BP 1< AC I IBA2» 

SP IBUS, NPR,SPQ 

MICPC»MICPC+1 

<M0VE1 SPX 1 IBUS 1 NPR J SPO> 



(UPDATE— UNIBUS ADDRESS 



| UPDATE NPR COUNTER 



( UPDATE ADDRESS LOW 



(READ HIGH ADDRESS 



| UPDATE HIGH 



•READ NPR REGISTER 



I IF CARRY— UPDATE MXT 



C RESEXT 
HICPC=HICPC*1 

<JUMPJCCONDKRESEXT-INITS3000»4>l<RESEXT-INITt777/2» 

ALWAYS TH3X (GO DO ANOTHER NPR 

MICPC»MICPC+i 

<JUMPlALCONDl<TH3X«INIK3000»4>l<TH3X«INITS777/2» 



BRWRTE IMM, 374 

MICPC»MICPC+1 

<MOVE i WRTEBR I IMM J <37 4» 

SP BR, AANDB,SP10 

HICPC»MICPC+i 

<MOVE 1 SPX 1 BR 1 A ANDB t SP1 0> 



} MASK FOR CLEAR MSG PENDING 



I TURN THEM OFF IN LINE STATUS WORD 
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1702 


014736 




(11 




001364 


(15 


014736 


063233 


( 1 5 






110 3 






1704 


014740 




(15 




001365 


(15 




001 


( 1 5 


014740 


010067 


(15 






(15 






(15 




000 


(15 






1 705 


014742 




(15 




001366 


(15 


014742 


043220 


(15 






1706 




001 


1707 






1708 




000 


1709 




001 


1710 


014744 




( 1 5 




001367 


( 1 5 


014744 


000403 


(15 




001370 


( 1 5 


014746 


063222 


1711 




000 


1712 


014750 




( 1 5 




001371 


( 1 5 


0i4750 


114532 


(15 
1713 


01 4752 




( 1 5 




001372 


(15 


014752 


000705 


(15 




001373 


( 1 5 


01 4754 


063923 


1714 


014756 




(15 




001374 


(15 


014756 


123200 


C 1 5 
1715 


014760 




(11 




001 375 


( 1 5 


014760 


000621 


(15 
1716 


014762 




r i ) 




001 376 


C 1 5 


01 4762 


104623 


(15 
1717 


014764 




( 1 5 




001 377 


(15 
(11 


014764 


023120 


1718 


"1 4766 




( 1 1 




001400 




014766 


0f>2065 



SP BR,SELB,SP13 

MICPC»MICPC+1 

<MOVE J SPX J BR I SELB 1 SP1 3> 



LDMA IMM,STC 

MICPC"MICPC+1 

,IF IDN IMM, IMM 

<MOVElLDMARlIMMl<STCt377» 

.IFF 

<M0VE1LDMAR!IMNKSTC» 
,ENDC 

SP HEMX,SELB,SP0 

MICPC»MICPC+1 

<M0VE1 SPX J MEMXJ SELB 1 SPO> 



(STORE UNRECOGNIZABLE VALUE INTO SP13 



I SO «RH3« WILL EXIT BACK TO IDLE LOOP 
(ADDRESS START OF TMT CHAIN 



(COPY LINK ADDRESS 



(CHANGE XMIT STATE TO LINE IS IDLE 
(CHANGE XMIT STATE TO LINE IS IDLE 



,IF DF SLOW 
TSTATE NUMSYN 
.ENDC 

.IF NDF •LOW 
TSTATE TMTA 
MICPC»MICPC+1 
<M0VE1 WRTEBR! IMM J <TMTA-INITt777/2» 
MICPC»MICPC+1 
<MOVE 1 SPX ! BR t SELB 1 SP2> 
, ENDC 

ALWAYS TD0N2 (POST A DONE 

MICPC»MICPC+1 

<JUMP| ALCONDl<TDON2.INITl30C0»4>:<TDON2-!NITi777/2» 

PSTATE RCVL 
HICPC»MICPC+1 

<M0VE1 WRTEBR! IMM I<RCVL-INITS,777/2» 
MICPC»MICPC+1 
<H0VE 1 SPX 1 BR ! SELB i SP3> 
SP IBUS, NPR, SPO 

MiCPC«MICPC+l 
<MOVE!SPX1IBUS1NPR1SPO> 



(READ NPR CONTROL REGISTER 



BRWRTE IMM, 221 

MICPC»MICPC + 1 

<MOVE ! WRTEBR! IMM 1<221» 

ALWAYS RK7 
MICPC«MICPC+1 

<JUMP!ALCONDl<RK7-INITS3000*4>!<RK7-INIT&777/2» 

HOINCHj SP IBUS, IIBA2, SPO 

HCPCoMICPCtl 
<MOVE!SPX! IRUS1 IIBA21SP0> 



OUTPUT RR,INCA!IBA2 
MICPCoMICPOl 

<MOVE!WPOl'T!BR!<INCA! IBA2>> 



I OUTPUT INCREMENTED BA 
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PACE! 0156 



M ) 






1719 


01 4770 




f 1 ) 




001401 


C 1 ) 


01 4770 


1 15003 


cn 






1720 


01 4772 




c 1 ) 




001402 


(t) 


014772 


1 10571 


C t ) 






1 721 






1722 


014774 




C 1 ) 




OO1403 


(1) 


014774 


173200 


(11 






1723 


01 4776 




1 1 ) 




001404 


t 1 1 


014776 


O00404 


( 1 ) 






1724 


015000 




( 1 ) 




001405 


( 1 ) 


01 5000 


061010 


f 1 ) 






1725 


011002 




C 1 ) 




001406 


CI) 


015002 


110571 


m 






1726 






1727 




001 


1728 


01S004 




C 1 ) 




001407 


(1) 


015004 


000715 


1729 


01 5006 




( 1 ) 




001410 


( 1 1 


015006 


110563 


cn 






1730 




000 


1731 






173? 




001 


1733 






1734 






1735 




000 



C 5S ) INCREMENT BYTE** COUNT 

MICPC«MICPC+1 

<JUMPlCCONDK5«-INITS3000*4>l<5»-INITS777/2» 

ALWAYS TUB 
MICPC»HICPC+1 

<JUMP| ALC0NDl<TH9-INITi3000»4>!<TH8-INITt777/2» 



I READ NPR REG IWTH CURRENT MXT BITS 



I WRITE BIT TO ADD 



j TURN ON PROPER MXT BITS 



J INCREMENT MXT BITS 
SP IBUS,NPR,SP0 
MICPC«MICPC+1 
<MOVE1SPX!IBUS!NPR!SPO> 

BRWRTE IMM, 4 
MICPC»MICPC*1 
<M0VE1WPTEBR1IMMK4» 

OUT BR,<ADD!ONPP> 
MICPCoMICPC+1 

<MOVE i WROUTX IBP! <ADD 1 ONPP» 

ALWAYS THB 
MICPCeMICPC+1 

<JUMPlALCONDi<TH8-INITS300O«4>i<TH8-INITS777/2» 



.IF DF LOW 
STATE TECM 
MICPCsMICPC+i 

<MOVE!WRTEBP!IMMKTE0M«INIT&777/2» 

ALWAYS XFXIT 

MICPCoMICPC+1 

<JUKP|ALCONDKXEXIT-INITi3000«4>><XEXIT-INITt777/2» 

.ENDC 
J 

.IF NDF LOW 
TSTATE TEOM 
ALWAYS II 
.ENDC 
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0f,-nEC-76 11134 



001411 
001 



CHC.H , 


"AC 


1 737 




U3« 

r l ) 


015010 


c 1 ) 
( i ) 

( 1 5 
C 1 ) 


015010 


< 1 ) 
C 1 ) 
1 719 
f 1 1 


015012 


< 1 ) 

r 1 l 


015012 


1740 
( 1 1 


015014 


( 1 1 
C 1 1 


115014 


1741 

( 1 ) 


015016 


cn 
r 1 ) 
c i ) 
r 1 1 


015016 


( 1 ) 
( i ) 

1742 


015020 


C 1 ) 
C 1 ) 
C 1 ) 


015020 


1743 


015022 


C 1 ) 
( 1 ) 


015022 


cn 

1744 


015024 


r i ) 

C 1 ) 
C 1 1 


O15024 


1745 




174f. 




1 747 
C 1 ) 


015026 


C 1 ) 

( 1 ) 


015026 


1 74f> 
1 1 ) 


015030 


C 1 ) 
C 1 1 


O15030 


1749 
C 1 1 


015032 


f 1 ) 
( 1 ) 


015032 


1 750 




1 75 1 

r 1 ) 


015034 


( t 1 
C 1 1 


"1 5034 
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001414 
001 



, SBTTL REP HANDLER 

LDMA IMM, REPCR 

MICPC«MICPC+1 

.IF ION IMM, IMM 

<MOVElLDMARlIMMl<REPCRt377» 

.IFF 

<M0VE1LDMAP1IMM!<REPCR» 
.ENDC 

SP MEMX,SELB,SPO 

MICPCbMICPC+1 

< MOVE ! SPX1 MEMX1 SELB t SP0> 

MEM DP,<INCA»BPO> 
MICPCsMICPC+1 

<MOVE1WPMEM1DPJ<INCAISPO» 

LDMA IMM, T 

MICPC»MICPC+1 

.IF ION IMM, IMM 

<M0VE1LDMAR:IMMKTS377» 

.IFF 

<M0VE1 LDMAP 1 IMM 1 <T>> 
.ENDC 

MEMINC IMM, 2 
MICPC«MICPC+1 

<MOVEJWRMEM| INCMAP1 IMH1<2» 

MEMINC IMM, 303 
MICPC«MICPCtl 

<MOVEIWRMEMSINCMARJIMM1<303» 



I LOAD MAR ADDRESS WITH POINTER TO REPS RECC 



I READ NUMBER OF REPS PECD 



I LOAD ADDRESS OF TYPE FIELD 



» LOAD NAK TYPE 



I LOAD REP RESPONSE SUB-TYPE 



J SEND AN UNNUMB MSG 



ALWAYS SNAK 
MICPC"MICPCtl 
<JUMP1 ALCONDl<SNAK-INITS3000»4>l<SNAK-INITS777/2» 



, SBTTL START HANDLER 
BRWRTE DP,<SELAtSP10> 
MICPC«MICPC+1 

<M0VE!WPTEBRJDP1<5ELAJSP10» 
BPSHFT 

MTCPCbMICPC+1 

<MOVE I 5HFTPP J WPTEBR I SELB> 



j READ LINE 5TATHS WORD 



( GET START MODE BIT IN TESTABLE POSITION 



I IF IN START MODE SET STACK 



8R4 10S 
MICPC=MTCPC+! 
<,lUMPi BR4CGNK1 OS-INITi,3000»4>!<10S-INIT&777/2>> 



14 2 3 

no ) 



tPMA !"!*,<<RTHRS+3» 

"HCPC = "ICPC + i 
.IF IPN T'«,IMM 

«.'"7VE ILD'-** ! TMMJ«RTHPS*3>4 377» 



; ELSE SET UP START ERROR 



D"M1 DDCMP PROTOCOL IMPLEMENTATION 
DnCHfiH.MSC OS-DEC-76 11:34 



MACYlt ?7<10Q6) 
START HANDLER 



14-DEC-7S 16144 PAGE 8-25 



1 1 3 
f 1 5 
( 1 3 
(I) 
1752 


01 5036 


f i 5 
f 1 3 


015036 


r 1 ) 
1753 


P15040 


f 1 3 
C ! 3 


0' 5040 


( 1 3 
1754 
(13 


015042 


(13 
( 1 3 
C 1 3 
C 1 3 


015042 


( 1 3 
1 1 3 
1755 


1 5044 


f 1 3 
f 1 3 


1 5044 


( 1 3 
1 756 


015046 


( I 3 
(13 


1 *046 


(11 
1 757 


015050 


C13 


01 5050 


f 1 3 
1 75S 




1759 




( 1 3 




(13 


015052 


( 1 3 
1761 


01 5054 


( 1 3 
(13 


015054 


( 1 3 
1762 
( 1 3 


015056 


( 1 3 
(13 


<M5056 



001 426 
001 



.IFF 

<M0VElLDMARiIMMJ«RTHRS+3»> 
.ENDC 

BRWRTE IMM, 200 

MICPC«MICPC+1 

<MOV£ 1 WP.TEBP, 1 IHM j <200>> 

ALWAYS RCEXY 
MICPC»MICPCM 

<JUMPULCONDl<RCEXY-INm3000*4>l<RCEXY-INIT6777/2» 



LDMA IBM,T 

MICPC«MICPC+1 

.IF IDN IMM, IMM 

<MOVEJLOMAR!IMMJ<Tt377» 

.IFF 

<M0VE1LDMARJIMMJ<T» 
.ENDC 

MEMINC IMM, 7 
MICPCbMICPC+1 

<M0VE1 WRMEM1 INCMARI IMMl<7» 

BRWRTE IMM, 11 

MICPC»MICPC+1 

<M0VE!WRTEBR1IMMJ<11» 

ALWAYS SA2 
MICPC*MICPC+1 

<J!3f!? i ALCOnDi <3A2*x HIT* 300u*4 
! 

.SBTTL STACK HANDLER 
BRWRTE IMM, 327 
MICPC«MICPC+1 
<M0VB!WRTEBR!IMMJ<327» 

SP BP, AANDB,SP10 

MICPCaMICPC+1 

<moveispx:brjaandbispio> 



jSET UP ADDRESS OF TYPE FIELD 



( WRITE STACK TYPE 



i SET START RECD AND UNNUMB PENDING 



) SEND THE UNNUMBERED MESSAGE 
S5A2-ISI~&777 /2» 



j MASK TO CLEAR START MODE 



jCLEAR START MODE 



t RESET TIMER AND IDLE 



ALWAYS TIME1 
MICPC»MICPC+1 

<JUMPJALCONDKTIMEl-INITt3000*4>!<TIMEl-INITS777/2» 



DMC11 DDCMP PROTHCOL IMPLEMENTATION MACYt 1 27(1006) 14-DEC-76 16144 PAGE 8-26 PAGE: 0159 

DDCHGH.M&C OOOEC-76 11»34 STACK HANDLER 



17*4 


015060 




ICBA22S 


SP IBUSf IOBA2#SP0 jREADTHFHIGH ORDERBITS OF BA TO SPO 






001435 




MICPCoKICPC+1 


( 1 3 


115060 


o?3160 




<M0VEISPXiI8USlI0BA21SP0> 


( 1 1 
1765 


015062 






OUTPUT DP,<INCAI0BA2> fOUTPUT THE INCREMENTED COUNT 


( 1 ) 




001436 




HICPCaMICPC+l 


(13 
( 1 3 


015062 


062067 




<M0VE1WR0UT1DPI<INCAJ0BA2» 


1766 


015064 






C 5S : IF CARRY SET INCREMENT THE MXTBITS 


f 1 3 




OOU37 




MICPC=MICPC+1 


( 1 3 
( 1 3 


015064 


1 15041 




<JUHPlCCOND!<5$-INITt3000«4>!<5S-INIT&777/2» 


1767 


015066 






ALWAYS PK3 


( 1 3 




001 440 




MICPC»MICPC+1 


( 1 3 


015066 


104641 




<JUMPJALCONDJ<RK3-INITt3000*4>l<RK3-INITS777/'2» 


(1 3 
176S 










1769 


015070 




581 


SP IBUS,UBBR,SPO 


( 1 3 




001441 




MICPCbMICPC+1 


( 1 3 
( 1 1 


01 5070 


123220 




<MOVE!SPXIIBUSIUBBRISPO> 


1770 


015072 






BRWRTE IMM, 4 


' 1 3 




001442 




MICPC«MICPC+1 


( 1 3 
( i 3 


015072 


000404 




<M0VE1WRTEBR1IMM1<4» 


1771 


015074 






OUT BR,<ADDIOBR> 


( 1 3 




001443 




MICPC«MICPC+1 


( 1 3 
( 1 1 


015074 


061011 




<MOVEIWROUTX1BP1<ADDJOBR» 


1777 


015076 






ALWAYS RK3 


(13 




001444 




MICPC»MICPC+1 


f 1 3 
( 1 3 


01 "5076 


104641 




<JUMPULC0NDl<RK3-INIT£3000»4>KRK3-IHITS777/2>> 


1 77 3 




OOJ 




.IF DF iLOW 


1 774 






FLUSH1 : 


OUTPUT IMM,<200|ORCVCO> jFLUSH THE RECVR 


1 775 








ALWAYS CGI 










.ENDC 


1 777 


O15100 




NAKj 


LDMA IMM, NDATR |CUMMULATIVF. NAK COUNTER 


( 1 3 




001445 




MICPC»MICPC+1 


f 1 3 




001 




.IF IDN IMM, IMM 


( 1 3 


015100 


oiooi l 




<MOVE!LDMARJIMMJ<NDATPS377» 


( 1 3 








.irF 


r 1 3 








<M0VE1 LDMAR1 IMM J <NDATR>> 


( 1 3 
( 1 3 




ooo 




.ENDC 


177H 


01510? 






SP MEMX.SELB.SPO I READ IT 


f 1 1 




00U46 




MICPC=MICPC+1 


( 1 3 
r 1 3 


15107 


043220 




<MOVF.!SPX!MFMX!SELBISP0> 


1 779 


015104 






MEM MFMX, INCA1 SPO :INCPEMFNT THF COUNTER 


( 1 1 




001-147 




HTCPCbMICPC + 1 


r 1 3 
r 1 1 


015104 


r 1246" 




<f»OVEl WPMF H! MEMXKINCAi SPO>> 


nsr 


n 1 5 1 Of, 






LPMS T*m,STC j ADDRESS START nF TKT CHAIN 


C 1 i 




or, 145 




MTrpc=MJCPC*l 


( 1 3 




001 




, IF I0£> I vi« 



PMCtl DDC«P PROTOCOL IMPLEMENTATION 
PRCKGH.mic 06-0FC-16 1U34 



MACY11 27(1006) 14-DEC-76 16144 PAGE 8-27 
STACK HANDLER 



PAGE: 0160 



(1) 

( 1 ) 
{ 1 ) 
1 1 1 


015106 


010067 
000 


<MQVEtLD«AB!IH«S<STCJ,377» 
.IFF 

<MOVEJLDMARlI«M'<STC» 
,ENDC 




f ! 1 
(1) 
C 1 ) 


!M 5 1 1 
115110 


001451 
043236 


SP MEMX,SELBfSP16 

MICPC»HICPC+1 

<MOVE! SPX ! MEMX 1 SELB 1 5P16> 


jCOr l CM A n l Ur n A i N 1U uhOI rUlrmp. 


( 1 1 
(11 


015112 


001452 
060477 


BRWRTE BR,INCA1SP17 
MICPC«MICPC+1 

<«0VESWRTEBBIBR1<INCAISP17» 


1 Vie, I JjAo 1 ntDOA^b MtrtU 


( 1 ) 
C t 1 

cn 


('15114 


001453 
063232 


SP BP, SELB, SP12 

MICPC«MICPC+1 

<WQVE ! SPX ! BR ! SELB 1 SPt 2> 




17R4 

( I 1 
( 1 1 


(115116 
0151 16 


n A 1 AK A 

v'.l! «*D 1 

000406 


BRWRTE IMN,6 
MICPCsKICPC+1 
<M0VE1WRTEBR!IHM|<6» 


) WRITE NUMBERED MSG PENDING 


17 8 5 

f 1 1 
( 1 ) 
{ 1 ) 


015120 


001455 
063310 


SP BP,A0RB»SP10 

MICPC»MICPC + 1 

<MOVE 1 SPX 1 BR 1 AORB 1 SP1 0> 


t AND LINE HAS GONE IDLE 
,«rf Tf tu t tup cf tTiic unoii 


( 1 ) 
f 1 1 
( ! 1 


015122 
015122 


001456 
063235 


SP BP,SELB,SP15 

NICPC«HICPC+1 

<MOVE I SPX t BR 1 SELB t SP15> 


1 RESET TIMER COUNT 


( 1 1 
( 1 1 
( 1 1 


1 5 1 2 4 
"15124 


001 457 
110725 


ALWAYS TE0M1 
MICPCbHICPC+1 

<JUMP1 ALCONDi<TE0Ml»IHIT43000»4>!<TEOMl-INITt777/2» 


(11 
( 1 1 
( 1 1 


015126 
'15126 


001460 
000415 


ININTl BRWPTE IMM.15 
MICPC»MICPC+1 
<MOVEl WRTFBR 1 IMM l<15» 


t MASK FOR TURN OFF ALL BUT EXT MEM BITS + 


( 1 1 
( 1 


015130 
O15130 


001461 
173220 


SP IBUS,UBBR.SP0 

MICPC»MICPC+1 

<MOVElSPXiIBUS|UBBRlSPO> 


JPEAD BP CONTROL REGISTER 


( 1 5 

( 1 1 
( 1 1 
( 1 1 


15132 
015132 


"01462 
Of 3260 


SP BR, AANDB, SPO 

MICPC«MICPC+1 

<HOVE * SPX 1 BP ! AANDBl 5P0> 


(MASK OFF VECTOR TO X04 


( 1 1 
t 1 1 


015134 


001463 
OO0600 


BRWPTE IMM, 200 

MICPCbMICPC+1 

<MOVE!HPTEBPIIMMI<200» 


I MASK FOR INTERRUPT 


1793 
f 1 1 
( 1 1 
( 1 1 


01 SI 36 
0151 3fi 


001464 
061311 


OUT BF, A0PB10BR 
MICPC«MICPC+l 

<MOVE ! WROUTX > BP i < AORB 1 OBR» 


» INTERRUFT 


1701 
( 1 ) 


015140 


001465 


SP IBUS,INCON,SPO 
HICPC«MICPC+1 


I RESTORE INPUT CONTROL CSR 



n v C11 TM'CP PROTOCOL IMPLEMENTATION 
DDCHGH.MAC 06-PEC-76 1H34 



MACY11 37(1006) 
STACK HANDLER 



14-DEC-76 16J44 PAGE 8-28 



( 1 1 
(11 

1 795 
f 1 1 
(11 
(1 ) 

l7"«i 



015140 123000 



00) 466 
1 00554 



<M0VE 1 SPX I IBUS1 INCON t SPO 

ALWAYS NIDLE4 
MICPCsMICPC+I 

<JUMP!ALCONDl<NIDLE4-INIT630O0*4>!<NIDLE4-INIT(i777/2» 



D"C5i DDC*P PROTOCOL IMPLEMENTATION 
DPCHGH.MAC 06-PEC-76 11:34 



MACyii 27(10065 14-DEC-76 16144 PAGE 8-29 PAGE: 0162 

STAC* HANDLER 



179B 
1799 
1800 
1 "01 
1SQ2 
180 
190 
1S05 
1 P06 
1«0 
1 SOU 



.IF DF SLOW 
.SBTTL NXMERR 



.-•HON EXISTANT MEMORY HANDLER 



LDHA 
MEM INC 

MEM 



IMM,«RTHRS+3» 
IMM, 1 
IMM,0 

M?MX,SELB«8P10 

PCEXX 



I ADDRESS ERROR LINK 



• NXM ERROR BIT 
CLEAR STATUS 

ALWAYS 
.PAGE 
.ENDC 

jFUGITIVE RECEIVE ROUTINES— DON'T FIT IN PAGE 
BRWRTE IHH, 77 



(1) 


015144 


001467 
000477 


MICPC«MTCPC+! 
<M0VElWRTEBRlIMMi<77» 


( 1 3 

1«09 
( 1 5 
1 1 ) 


015146 
015146 


O01470 
063265 


SP BR, AANDB» SP5 

MICPC"MICPC+1 

<M0VE1 SPX S BR 2 AANDB 1 SP5> 


(11 
1 P10 
f 1 1 
( 1 3 
C 1 3 

( 1 1 
( 1 3 
( 1 3 


015150 
015150 


001471 
001 

070074 
000 


LDMA BR,<INCA1SP14> (LOAD ADDRESS OF CURRENT COUNT 
NICPCoMICPC + 1 
.IF IDN BR, IMM 

<MOVEILOMARJIHHl<INCAlSP14fi377» 
.IFF 

<M0VElLDMARiBRJ<IHCAlSP14» 
, ENDC 


( 1 3 

iei i 
f i 3 
f i i 


015152 
01 S152 


001472 
077220 


SP BR1INCHAR,SELB,SP0 (SAVE MASK 
MICPCeHICPC+1 

<M0VElSPX<BRlINCMARtSELBlSP0> 


(i) 

1 s l 2 

( i i 


oi sis* 

015154 


001473 
074601 


SRSRTE 3BJ ZXCPA&t&SLkl-SPl ! READ STATUS BYTE 
MICPC»HTCPC*1 

<MOVE I WRTEBP I BR I INCMAR I <SELA J SP1 » 


r ' 3 

1P1 3 
( 1 3 
f 1 3 


015156 
015156 


001474 
001620 


BRSHFT J SHIFT IT RIGHT 

MICPC«MICPC+1 

<M0VE1 SHFTBR1 WRTEBR! SELB> 


f 1 ) 
1 PI 4 
C 1 3 

r 1 ) 


015160 
015160 


001475 
1 16502 


BR1 RH2 |N0 BUFFER ASSIGNED IN MAINT MODE 
MICPCnMICPC+1 

<JUMPlBPlCONKRH2-INIT63000*4>l<PH2-INITS777/2» 


f 1 ) 
f 1 3 


015162 
015162 


001476 
O54660 


BRWRTE HEMX t INCMAR, AANDB i SPO J GET HIGH BYTE COUNT BITS 
MICPC«MICPC+1 

<MOVE{ WRTEBRIMEMXI INCMAR t <AANDB 1 SP0>> 


( 1 1 
1 lift 
( 1 3 
( 1 1 


015164 
015164 


001477 
060365 


CMP BR,SP5 »CO"PARE HIGH ORDER BITS OF COUNT 

MICPC»MICPC*1 

<SUBTC1BP1SP5> 


( 1 1 
1017 
( 1 ) 
f 1 3 


015166 
015166 


0O1500 
115113 


C PCFATL | IF CARRY— TOO BIG ERROR 
MICPCsKTCPCtI 

<JUMPICCOND!<RCFATL-INITt3000»4>!<RCFATL-INTT&777/2» 


C 1 3 
1P1P 
CI 1 


015170 


001501 


Z RCLOW »IF EQUAL COMPARE LOW ORDER BITS OF 
MICPCaMICPC+1 



DMC11 DPCMP PROTOCOL IMPLEMENTATION 
DHCHGH.MAC 06-OEC-76 11:34 



MACY11 27C1006) 
STACK HANDLER 



14-DEC-76 16«44 PAGE 8-30 



PAGEl 0163 



( 1 3 


015170 


1 15510 


f 1 1 






1P19 


015172 




rii 




001502 


( 1 1 


015172 


020540 


d ) 






1P20 


015174 




1 1 ) 




0O1503 


(n 


015174 


1 16106 


f 1 1 






1821 




001 


1 872 






1 R23 






1 P24 




000 


i »25 


015176 




(1 3 




001504 


( i ) 


015176 


O00660 


1 P26 


015200 




fl) 




001505 


Ml 


01 5200 


100450 


1 P27 






1 P?P 


015202 




f 1 ) 




001506 


f 1 1 


015202 


000607 


1 879 


015204 




(1 ) 




001507 


r 1 3 


015204 


100450 


( 1 1 






i <nc 






i mi 


O15206 




( 1 ) 




001510 


( 1 3 


015206 


04OJ64 


CD 






1 '32 


015210 




f i 1 




001511 


( 1 ) 


015210 


115113 


(13 






1 <m 


015212 




1 1 ) 




001512 


f 1 3 


015212 


1 14502 


(13 






1034 


015214 




f 1 3 




001513 


f 1 1 




001 


f 1 1 


015214 


010151 


f 1 i 






( 1 3 






< 1 3 




000 


( 1 3 






1 =15 


01*716 




( 1 ) 




OOtSM 


f 1 3 


01521* 


016402 


f 1 3 






mif 


O15J20 




( i 3 




«>'M5S5 



<JUMPlZCONDJ<RCLOW-Ilim3000*4>l<RCLOW-INIT«.777/2» 

t READ LOW BYTE OF IN BA 



BRWRTE IBUS,I0BA1 
MICPCsMICPC+1 

<MOVE 1 WPTEBR J IBUSKI0BA1 » 



(IF SET IS ODD TRANSFER 



BPO RCVODD 
MICPCoMICPC+1 

<JUMPlBR0CONl<RCVODD-INIT&3000»4>i<RCVODD-INIT&777/2» 



j IS THE RECEIVER READY? 
j YES— GO PROCESS 



,IF NDF LOW 
BRWRTE IBUS,RCVCON 
BR4 RCVKEO 
.ENDC 

STATE RCVKEO 
MICPC»MICPC+1 

<M0VEtWRTEBR!IMMJ<RCVKE0-lNIT&777/2» 

ALWAYS PEXIT 

MICPC"MICPC+1 

<JUMPJALCONDJ<PEXIT-INIT63000»4>KREXIT-INITS777/2>> 



RCVODD: STATE RCVK01 
MICPC«MICPC+1 

<M0VEiWRTEBRJIMMKRCVK01-INITS777/2» 

ALWAYS PEXIT 

MICPC»MICPC+1 

<JUMPiALCONDKREXIT-INITt3000#4>KREXIT-INIT£777/2» 



CMP MEMX.SP4 

MICPC«MICPC+1 

<SUBTCJMEMX!SP4> 

C RCFATL 
MICPC=MICPC+1 



jCOMPARE LOW ORDER BITS OF COUNT 



jCARRY— TOO BIG 



ALWAYS PH2 } ELSE CONTINUE 

MICPCbMTCPC+1 

<JUMPJ ALCONDI<RH2-INITt3000*4>!<RH2-INITt777/2» 

LDMA IMM,T 
MICPC«MICPC + 1 
, IF IDN I MM, IMM 
<10VE!LDMAP1IMMKTS377» 
.IFF 

<MOVE!LDMAP| IMMl<T» 
.ENDC 

MfciMINC T"M,2 

*!cpc=micpc+1 

<move: wpmfm j incmar'immi<2>> 

MFM 

«icpc=«icpc*i 



DTll Dr>CMP PROTOCOL IMPLEMENT AT ION 
DDrHRH.MAC 06-0EC-76 1 1 ! 34 



MACY1J 27(10065 14-DEC-76 16:44 PAGE 8-31 
STACK HSNDLER 



PAGE s 0164 



015220 002711 
015222 

001516 
001 

015222 010175 



1 

f 1 1 



01*224 
015224 
015226 
015226 
015230 
O15230 
015232 
015232 
015234 
015234 
015236 
015236 
015240 
"15240 
01524? 
'115242 
015244 
015244 
015246 
H5246 
015250 
015250 
15252 



001517 
036540 



001520 
036560 



"01521 
000420 



001522 
016400 



001523 
062620 



001524 
002212 



001525 
003002 



001526 
13001 



001527 
1 1 466* 



001530 
040757 



0O1531 
107562 



RCEXXl 



<MOVEJWRMEM! IMMJOl 1» 

LDMA IMM,<<RTHRS*1» 
MTCPCsMICPC+1 

.IF IDN imm,imm 

<MoVEILDMARlIMM[«RTHRS+l>i377>> 
.IFF 

<MOVE1LOMAR! IMMJ«RTHRS+1»> 
, ENDC 

MEMINC IBUS.TOBAl 
M1CPC«MICPC+1 

<M0VE1WPMEMIINCMAR1IB0SI<I0BA1» 

MEMINC IBUS,I0BA2 
MICPC«MICPC+1 

< WOVE I WRMEM! INCMAR! IBUS! <I0BA2» 

BRWRTE IMM, 20 

MICPC»MICPC+1 

<HOVEIWRTEBFIIMM1<20» 

MEMINC IMM,0 
MICPCeMICPC+1 

<«0VE!WRMEM! INCMAPIIMM1<0» 

MEM BRi SELB 

MICPC»HICPC*1 

<M0VE1WR«EM!BR1<SELB» 

OUTPUT IMM,<200|ORCVCO> 
MICPCBMICPC+1 

<MOVEIWROUT1IM«K20010RCVCO» 

SP IMM,SP2,2 
MICPCeMICPC+1 
<M0VE1SPXIIMM!SP212> 



; ADDRESS ERROR LINK 



) FLUSH INPUT SILO 



I INHIBIT FURTHER TRANSMISSION 



SP IMM,1,SP1 

MICPC»MICPC+1 

<MOVE!SPX!TMMinSPl> 



j SET INIT MODE IN PORT STATUS WORD 



ALWAYS NTRS1 
MICPC*MICPC+1 

< JUMP J ALCONDl<NTRSl-INIT63000»4>!<NTRSl-INITt777/2» 



BRWRTE MEMX,SUBJ3P17 
MICPC«MICPC+1 

<M0VE!WRTEBR|MEMXKSUB1SP17» 



BP7 PH3 
MICPC«MICPC+1 

<JUMPlBR7CONi<RH3-INIT43000*4>J<RH3-INITi777/2» 



jCOHPARE RESPONSE TO MSG NO 



j IF NEGATIVE EXIT 



LDMA BR,SELA!SPO 
MICPC«MICPC+1 



; ADDRESS THE TRANSMITLINK 



DTP DOC M P PROTOCOL IMPLEMENTATION 
prrM:-.i:.y»c 06-DEC-76 11:34 



015252 070200 
OOO 



MAC Yl 1 27(1006) 
STACK HANDLER 
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1 5o 


015254 




f ' 1 




001533 


( 1 ) 


015254 


002400 


( 1 ) 
1 051 


015256 




r 1 1 




001534 


c 1 1 




001 




01' 13 6 


- \"-f.- 


1 1 ) 






! ' 1 






f 1 3 




000 


m 






1 052 


O15260 




( 1 ) 




001535 


( 1 ) 


"15260 


002471 


f 1 1 






1PS3 


"15262 




f 1 1 




001536 


(1 ) 


0152S2 


000543 


( 1 ) 






1«54 


015264 




( 1 ) 




011537 


f 1 ) 


015264 


060360 


r l ) 






i 055 


015266 




1 1 1 




001540 


( 1 ? 


015266 


! ! 5543 


f 1 ) 






1 R56 


01 5270 




( 1 1 




001541 


C 1 ) 


015270 


000406 


f 1 5 






1 S57 


015272 




( 1 ) 




001542 


f 1 ) 


015272 


067400 


(11 






10.50 


015274 




( t ) 




0O1543 


( 1 ) 




001 


f 1 1 


015274 


010241 


f 1 ) 






( 1 ) 






' 1 ) 




000 


( 1 ) 






1 059 


01 527 6 




r 1 ) 




001 544 


( ; 1 




1 


r 1 ■> 






r 1 1 


nuilf 


0«32J3 



,IF IDN BR , IMM 

<MOVE!LDMARtIMM!<SELAlSP0&377» 
.IFF 

<MOVE 1 LDMAR! BR 1 <SELA 1 SPO>> 
.ENDC 

MEM IMM,0 
MICPC=MICPC*1 
<MOVE1WRMEM1IMM!<0» 

LDMA IMM,STC 
MTCPC«MICPC+1 
. TF IDN IMM, IMM 
<Mnvru,r>Mipi TMMi <STCR377>> 
.IFF 

<M0VE1 LDMAR! IMM KSTC» 
.ENDC 

MEM IMM, TML1 

MICPCaMICPC+1 

<M0VEIWPMEM1IMM1<TML1» 

BRWRTE IMM.TML8 

MICPC»MICPC+1 

<M0VE ! WRTEBP ! IMM I <TML8» 



! TURN OF ASSIGNEDAND TMTED BITS IN FLAG 



( ASSUME WRAPAROUND 



I WRAPAROUND? 



CMP BR,SPO 

MICPC*HICPC+1 

<SUBTC1BR1SP0> 

Z TD0N4 J YES 

MICPC»MICPC + 1 

<JUMPlZC0NDKTDON4-INIT&3000*4>!<TDON4-INIT&777/2>> 



BRWRTE IMM, 6 
MICPCeMICPC+1 
<M0VE!WRTEBR!IMMJ<6» 

MEM BR,ADDlSPO 

MICPC«MICPC+1 

<MOVE i WRMEM 1 BR I <ADD 1 SPO>> 

LOMA IMM,NXTSP 

MTCPCsMICPC+1 

.IF IDN IMV.IMM 

<MOVE! LDMAR1 IMM! <NXTSPS377>> 

.IFF 

<«OVE!LOMAR! IMM!<NXT5P>> 
.FNDC 

LDMA MF;lnX,SELB!SPX!SP3 

MTCPCsMTCPf+1 

,TP J ON MEMXrIMM 

<'<nvElLn*ARJ IM*!!<SELP!SPX!St3H37 7>> 
.IFF 

< ' ' V E ! L D M A P ! M E f X ! < S F L P ! S P X ! .5 P 1 > > 



: OFFSET FOR NEXT TMT LINK 



1 UPDATE THE POINTER 



jADORESS DONE LINK 



jADDRF.SS THE LINK, COPYING 



DMC11 DDC'^P PROTOCOL IMPLEMENTATION 
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(1) 




(1) 




1860 




1 86 1 


0) S300 


( 1 5 




cn 


015300 


( 1 ) 






015302 


( 1 1 




(1) 


015302 


cn 




1 863 


015304 


c 1 5 
( 1 ) 




(!) 


015304 


(1) 




1 1 1 




(() 




( 1 ) 




18b4 


015306 


( 1 ) 




CI ) 


O15306 


f t 5 




1865 


015310 


( 1 1 




C 1 1 


015310 


( 1 1 




! 8*6 


015312 


C 1 ) 




t 1 ) 


015312 


f 1 1 




1 867 


015314 


( 1 ) 




f 1 > 


015314 


CI 1 




1 868 


015316 


1 1 1 




C i ) 


015316 


(11 




I860 


015320 


C1 5 




C ' 1 


015320 


C 1 i 




1 870 


015322 


C1 ) 




C 1 ) 


015322 


C 1 > 




187) 


"1 ■5324 


( 1 1 




C 1 1 


015324 


C 1 1 




187? 

cn 


01 5326 


cn 

C11 

cn 


015326 



001550 
002642 



001551 
000776 



001552 
060363 



001553 
1 15556 



001554 
000402 



001555 
062403 



001556 
000420 



001557 
063301 



001560 
001 
010070 



.ENDC 



MEMINC IMM, 200 
MICPC=MICPC*1 

<MOVEJWRMEMlINCMABi IMM|<200» 

MEM BR,INCA!SPO 
MjCPC*MICPCt1 

<MOVE 1 WRMEN IBR KINCA1 SP0» 

LDMA IMM,NXTSP 
SSICPCaMICFC + S 
,IF IDN IMM, IMM 
<MOVE!LDMAB!I*IHJ<NXT5PtJ77» 
.IFF 

<MOYE t LDMAR ! IMM! <NXTSP» 
,ENDC 

MEM IMM, INTSTK 

MICPC«MICPC+1 

<MOVE I WRMEM i IMM [<INT5TK» 

BRWRTE IMM,«MMEND-2» 
MICPC»MICPC*1 

<MOVE ! WRTEBR 1 IMM I «MHEND-2»> 

CMP BP,SP3 

MICPC*MICPC+1 

<SUBTCtBRlSP3> 



j ITS ADDRESS TO SPO 

j WRITE THE INTERRUPT TYPE 



jCOPY ACTUAL LINK ADDRESS 



j ADDRESS PTP INT STACK 



f ASSUME WRAP AROUND 



t ADDRESS ENDOFINT STACK 



» WRAPAROUND? 



Z TD0N40 j¥ES===BSAHCH 

MTCPCaMICPC+1 

<JUHPiZCONDJ<TDON40-INITt3000*4>KTDON40-INIT&777/2» 



BRWRTE IMM, 2 
MICPC«MICPC+1 
<MQVE! WRTEBR I IMM J<2» 

MEM BR,ADD!SP3 

MICPCsMICPC+1 

<MOVE 1 WRHEH 1 BR 1 <ADD I SP3» 

TD0N40I BRWRTE IMM, 20 
MICPC»MICPC+1 
<MOVE 1 WRTEBR I IMM J <20» 

SP BR,A0RB,SP1 

MICPCoMICPC+1 

<M0VE1SPX1BRU0RB1SP1> 

LDMA I MM, ETC 
MICPCeMICPC+1 
.IF IDN IMM, IMM 
<MOVElLDMAS!IMMt<ETCS377» 
. IFF 



I OFFSET TO NEXT PAIR 



j UPDATE POINTER 



t WRITE INTERUPT PENDING 



»IN PORT STATUS WORD 



j ADDRESS NEXT EMPTY PTP 



DMC11 DDCf'P PROTOCOL IMPLEMENTATION 
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001561 



MAC Yl 1 27(1006) 
STACK HANDLER 
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( 1 ) 

f 1 ) 
1 1 1 

187 3 


015330 


C 1 ) 




( 1 1 
1874 
( 1 ) 


015332 


cn 

C 1 ) 

c ) ) 
( i ) 


015332 


C 1 1 

( 1 1 

187* 
f 1 ) 


015334 


C 1 ) 


015334 


C ! ) 
187fi 
( 1 ) 


015336 


C 1 1 


01533S 


cn 

1877 




1 R7B 
C 1 ) 


015340 


C 1 ) 
C 1 1 
CI ) 
C 1 1 


01534O 


C 1 1 

cn 

187" 


015342 


(1 ) 
C 1 ) 


01534? 


f 1 ) 
1880 
C 1 ) 


015344 


C1 ) 
C 1 ) 
< 1 1 
C 1 ) 


015344 


C 1 1 

f 1 1 

1881 
C 1 ) 
CI 1 


015346 


cn 
f 1 1 

C 1 ) 
C 1 ) 

( 1 1 


015346 



0153«n 

1 S3sr, 



001562 
001 
01 0067 



001563 
040360 



001564 

105562 



001565 
001 
010153 



001566 
043237 



001567 
001 
01 0067 



001570 
001 



053620 

ooo 



00)571 
054f,?f) 



<MOVEJ LDMAR 1 IMM 1<ETC» 
.ENDC 

SP MEMX,SELB,SPO 

MICPCeMICPC+1 

<MOVE1SPX1MEMXJSELB1SPO> 

LDMA IMK.STC 
MICPC»MICPC+1 
.IF IDN IMM, IMM 
<M0VEILDMAR1IMMJ<STC&377» 
. IFF 

<MOVE ! LDMAR! IMM 1<STC» 
.ENDC 

CMP MEMX,SPO 
MICPCeMICPC+1 
<SUBTC JMEMT!SP0> 



jCOPY IT TO SPO 



j GET NEXT DONE PTR 



t IDENTICAL? 



MICPCeMICPC+1 
<JUMPS2CONDl<RH3 = INIT£300e#4>!<RH3-INIT£777/2» 



jFINISH PROCESSING HEADER 



LDMA IHM,ISP17 

MICPC*MICPC+1 

.IF IDN IMM, IMM 

<MOVE!LDMARlIMMJ<I5P17t377>> 

.IFF 

<MOVE! LDMAR! IMM 1<ISP17» 
.FNDC 

SP MEMX,SELB,5P17 

MICPC=MICPC+1 

<M0VEISPX1MEMX1SELB1SP17> 

LDMA IMM.STC 

MICPC«MICPC+1 

.IF IDN IMH.IMM 

<MOVE ! LDMAR 1 IMM! <STC6 377» 

.IFF 

< MOVE! LDMAR 1 IMM 1<STC>> 
.ENDC 

LDMA MEMX,SELB!SPBRX!SPO 

KTCPC=MTCPC+1 

,TF IDN MEMX, IMM 

<MOVE!LDMAP! IMM i <SELB 1 SPBRX ! SPOS 377>> 
.IFF 

<>iriVE! LDMAR! MCMX!<SFLB!SPBR^!SPO>> 
.FNDC 

BRWRTF MFMX! INCMftR.SELB 
MICPC=MICPC+1 

<"PVE:! WRT^RP! «FMX! INCMAP!<SF[.B>> 



j GET LAST ACKED 



I STORE IT IN SP17 



I GET START OF TMT CHAIN 



I ADDRESS THK LINK 



;GE T THF. FLAGS 
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1893 


01535! 


( I ) 




( 1 1 


015352 


( 1 ) 




188 1 


01 5 354 


C 1 1 




( 1 ) 


015354 


( 1 1 




18PS 




1886 


01 5356 


( 1 ) 




( 1 ) 


015356 


C 1 ) 




1887 


015360 


( 1 1 




( 1 ) 


015360 


( 1 ) 




J 8«8 




188$ 




1801 




1891 




1 R9? 


015362 


( 1 1 




t 1 1 


"15362 


C 1 ) 




1891 


015364 


( 1 1 




C 1 ) 


015364 


( 1 ) 




1804 


015366 


( 1 1 




( 1 ) 


015366 


1 1 1 




189* 


015370 


1 1 t 




t 1 ) 


015370 


( 1 1 




1896 


015372 


( 1 1 




( 1 1 


015372 


r 1 ) 




1 89 1 


015 374 


r 1 1 




f 1 ) 


015374 


C 1 1 




I 89 = 


015376 


( 1 1 




( 1 5 


15376 


( 1 1 






'M 5 4 


(1) 




n> 


015400 


1 1 1 




19nn 


015402 


(1 ) 




( 1 1 


015402 



001576 
021333 



001577 
115603 



001600 
000406 



001601 
060360 



00J602 
115611 



001603 
060601 



001604 
0O1620 



001605 
106740 



001 606 
001620 



BR1 TD0N3 
MICPC»MICPC+1 

<JUMP!BRlCONl<TDON3-INITfc3000*4>l<TDON3-INITS777/2» 

ALWAYS RH3 >ELSE---EXIT 
MICPC»MICPC+1 

<JUMP!ALCOND!<RH3-INITS3000M>J<RH3-INITi777/2» 



OVpRUN; BRWRTE IMM,4 
MICPC«MICPC*1 
<M0VElWRTEBP!t*Hl<4» 

ALWAYS NTRSO 
MICPOMICPCn 

<JUMpULCONDl<NTRSO-INlT&3000»4>l<NTRSO-INITl777/2» 



t INPUTS: 

» SPO « RECEIVE CHARACTER 



)IF BUFFER ASSIGNED PROCEED 



PASWRDl SP IBUS,LN0SW,SP13 
MICPC»MICPC+1 

<MOVE!SPXiIBU51LNOSWlSP13> 



J READ PASSWD SWITCH 



Z 10S 
MICPC»MICPC+1 

<JUHPlZCONDt<10»-INITt3000»4>K10$-INITS777/2» 



BRWRTE IMM, 6 
MICPC«MICPC+1 
<MOVE t WPTEBPi IMM I <6>> 



I IF ALL ONES NO RLD ENABLED 
0S-INITS777/2» 
(CHECK FOR ENTER MOP MODE 



CMP BR, SPO 

MICPC»MICPC+1 

<SUBTCIBP1SP0> 



>IF EQUAL ENTER MOP 



Z 20$ 
MICPC*MICPC+1 

<JUMPIZCOND!<20S-INIT63000»4>l<20S-INITS777/2» 



BRWRTE BR, SELAI6P1 
MICPCsMICPC+1 

< MOVE 1 HRTEBR 1 BP KSELA ! SP1 » 
BRSHFT 

MICPC»MICPC+1 

<M0VE1 SHFTBP I NPTEBR1 SELB> 



I READ STATUS BYTE 



jSHIFT IT RIGHT 



BR1 RHX 
MICPCaMICPC*l 

<JUMPlBRlCONKRHX-INITs3000»4>!<RHX-INIT6777/2» 



j MESSAGE WITH NO BUFFER ASSIGNED 



BRSHFT 

MICPCbMICPC+1 

<M0 VE ! SHFTBP 1 WRTEBP 1 SELB> 



I SHIFT RIGHT AGAIN 



DMC11 DPC 1 ? PROTOCOL IMPLEMENTATION 
06-DEC-76 11)34 



DDCHGh. 


"AC 


( 1 ) 




1901 


015404 


( 1 ) 




CI) 


015404 


(11 




1902 


015406 


( 1 1 




( 1 ) 


015406 


( 1 1 




190? 


015410 


cn 




( 1 ) 


015410 


( 1 1 




190 : 




cn 




( i i 


015412 


19C5 


015414 


( 1 1 




( 1 ) 


015414 


( 1 1 




1906 




1907 




1900 




1909 
( 1 ) 


015416 


(1) 
f 1 ) 
(1 1 
( 1 1 


015416 


( 1 ) 
( 1 ) 
1910 

( 5 1 


015420 


(1 ) 


015420 


(1) 
1911 
( 1 ) 


015422 


(n 
m 
( 1 1 
( i ) 


015422 


( 1 1 
( i i 

1917 


015421 


( 1 1 




( 1 1 


015424 


( 1 1 




1913 


01S426 


( 1 1 




( 1 1 


01 


f 1 1 




191 " 


0)5410 


( 1 ) 




( 1 ) 


') 1 « 4 M 


( 1 1 
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001614 
001 



001616 
001 



001 f.21 
1^2^7 1 



20$: 



RCVMl | 



j OLE RECEIVED IN NORMAL MODE 



BR1 RCVMO 
MICPC=MICPC+1 

<JUMpjBRlCONKRCVM0»INITS3OO0*4>l<RCVM0-INITl777/2>> 

ALWAYS PK3 J HANDLE MAINT MODE MESSAGE 

MICPCoMICPC+1 

<JUMPjALCOND!<RK3-INITt3000»4>KRK3-INITi777/2» 



SP BR,DECA,SP4 

MICPC«MICPC+1 

<M0VEISPXIBP!DECA!SP4> 



; COUNT FOR NUMB OF COMPARES 



STATE E M 2 
MICPCsMICPC+1 

<M0VE1 WPTEBR i IMM j <EM2"INIT677 7 /2>> 

ALWAYS REXIT 

MICPCbMICPC+1 

<JUMP! ALCONPJ<PEXIT-INITSi3000»4>l<REXIT-INITt777/2» 



.ENABL LSB 

LDMA IMM, NAKST 
MICPCaMICPC+1 
.IF IDN IMM, IMM 
<M0VE!LDMAR!IMM1<NAKSTS377» 
.IFF 

<MOVE!LDHARJ IMM 1 <NAKST>> 
.ENDC 

MEM IMM.l 
MICPCbMICPC+1 
<MOVE t WRMEM! IMM1<1>> 

LDMA IMM.BC 
MTCPC«MICPC+1 
.IF IDN IMM, IMM 
<MOVE!LDMAPi IMM|<BCS377» 
.IFF 

<MOVE 1 LDMAP 1 IMM 1 <BC>> 
, ENDC 

SP MEMX'INCMAR,SELB,SP4 
MICPCbMICPC + 1 

< MOVE 1 SPX1 MEM X! INC MAPI SELBl SP4> 

SP MKMX! I^CMAP, SELB, SP5 

MICPCaMICPC+1 

<MOVK ! SPX ! MEMX1 INC M AP ! SFLR 1 SP5> 

".ff BP.,PECA!SPU 
M1C0C="trPC+l 

<«PVF ! wRVE" !HP ! <DECA{ SP1 1 >> 



I RESET NAKS SENT 



I ADDRESS ORIGINAL RECV BYTE COUNT 



I HOVE BYTE COUNT TO SP4 



;".r>oy spii rvau MEMORY 
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( 1 ) 








f 1 1 




f 




f 1 




'"J 








191ft 


015434 


1 1 i 




c i ) 


015434 








1 5 4 36 


t 1 1 




Ml 


5 


C 1 J 






015440 








015 440 


C 1 1 






m *447 






f 1 










015444 


'J 






015 44 4 


( 1 » 






01 5446 


( 1 ) 




/ ' •! 




C t i 




192? 








1924 


5... 


( 1 1 






1 5 45 


( 1 ^ 




1925 




1 9 26 


\ 5 45 2 


(1 > 




f 1 ) 


015452 


( 1 1 




1927 


015454 


( 1 1 




f 1 1 


01545 4 


( 1 1 




1928 


015456 


(1 ) 




f 1 ) 




( ! 1 


015456 


f 1 ) 
C 1 1 




( ' 1 

C ) 1 






015460 


(1 1 





001622 
001 



001623 
053223 



001624 
016604 



001625 
072614 



001626 
016400 



001627 
017300 



001634 
001 



HICPCeKICPC+1 
.IF IDN IMM,IMM 
<M0VE1LDMAR1IMMJ<NXTSPS37?» 
.IFF 

<MOVE 1 LDM AP J im I <NXTSP» 
.ENDC 

SP MEMX 1 LDHAP, SELB» 5P3 

MTCPC«MICPC*1 

<M0 VE ! SPX t MEHX i LDM AR » SELB ! SP3> 

HEHINC IMM,204 
MICPC»MICPC*1 

<MOVE!WRMEMJINCMAPIIMM{<204» 

MEM BR1 LDMAR, SELA J SP14 

MICPC»MICPC+1 

<M0VE1WBMEM1BR!LDMARKSEI,A1SP14» 

MEMINC IM«,0 
MICPC*MICPC+1 

<MOVElWBMEHJINCWARiIHHI<0» 

SP imm;incmab,spo,3oc 

MICPC«MICPC+l 

<MOVEJSPXIIHM1INCMAR1SP01300> 

BRNRTE IHMJINCMAP,2 
MICPC»MICPC+1 

<»nvrj sjDTrgp 1 thsii THrUiBi <?>> 



MEM MEMX.AANDBISPO 
MtCPC»HICPC+l 

<HOVE 1 WPMEM 1 MEMXi <AANDB ! SPO» 



MEMINC MEMX,A0PBiSP5 
MICPC«MICPC+1 

<MOVE! WRHEM1 INCMAR J MEMXKAORBJ SP5» 

MEHINC BP.SELA1SP4 
MICPCoMICPC+1 

<MOVE! HRMEH t INCMAR1BR 1 <SELA 1 SP4>> 

LDMA IMM.NXTSP 

MICPCcMICPC+1 

.IF IDN IMHjIHM 

<M0VElLDMAPiIMMl<NXTSPt377» 

.IFF 

<MOVE ! LDMAP i IMM I <NXTSP» 
.ENDC 



»COPY TO SP3 



j RECEIVE DONE IMA* 



;COPY LINK ADDRESS TO NEXT INTER 



J ZERO THE FLAGS 



jWRITE A 300 TO SPO 



I PREPARE TO ADDRESS NEXT 



j INTERRUPT STACK AND INCREMENT 
J THE MAR 

J MASK OFF ORIGINAL HIGH BYTE 



(OF COUNT SAVING EXTENDED MEM BITS 
I COPY TO MEMORY LINK 



J ADDRESS NEXT INT STACK 



MEM BR, ADD I SP3 

MTCPC«MICPC+1 
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(1 ) 


"15460 


0624C3 


c 1 1 






1030 


0154fi? 




n ) 




001636 


c 1 ) 


015462 


000776 


(1 ) 






19 U 


015464 




c 1 1 




001637 


(11 


015464 


060363 


(1) 






1937 


015466 




( 1 1 




001640 


(1 ) 


01 5466 


115651 


( 1 1 






1933 


01 5470 




1934 


015470 




f 1 ) 




001641 


( 1 1 


01547" 


000405 


(1 ? 






19 35 


015472 




(1 ) 




001642 


( 1 1 


01 5472 


063*14 


f 1 ) 






193ft 


015474 




( 1 1 




001643 


( 1 ) 


015474 


000467 


(1 ) 






1937 


015476 




CI ) 




001644 


(1 ) 


015476 


060374 


( 1 1 






1933 


015500 




f n 




001645 


( 1 1 


015500 


1 15653 


( 1 ) 






1939 


" 1 




( 1 1 




001646 


< 1 ) 


01 5502 


000420 


' 1 1 






1 9 in 


015504 




( 1 1 




001647 


I 1 5 


015504 


063301 


( 1 ) 






19*1 




001 


104? 






1 94 1 






1914 






1 945 






1 046 




000 


1947 




001 


1 94 B 


01 5506 




C 1 ) 




00165" 


( 1 1 


01 550f, 


10 4115 


r 1 1 







<MOVE ! WPMEM J BR 1 <ADD 1 SP3» 

BRHRTE IMM,«MMEND-2» 
MICPC«MICPC+1 

<MQVe: WRTEBRi iHn j <<MMEND-2>3 

C»P BR,SP3 

MICPC»MICPC+I 

<SUBTCJBR!SP3> 



I ADDRESSEND OF INT STACK 



I WRAP AROUND 



Z 40S 
MICPC*MICPC+1 

<JUMPJZCOND!<408-INIT63000*4>X40S-INIT&777/2» 



JIF YES-- BRANCH 



BRWPTE IMM, 5 
MICPC«MICPC + 1 
<M0VEiWPTEBRJIMMl<5» 

SP BP, ADD 1 SP1 4 

MICPC»MTCPC+1 

<M0VE!SPXSBP!ADD1SP14> 

BRWPTE IMM,STC 

MICPC*MICPC+1 

<M0VE1 WRTEBR 1 IMM J <STC>> 

CMp BR,SP14 

MICPC=MICPC+1 

<SUBTCIBR!SP14> 



Z 50$ 
MrCPCoMICPC+1 

<JUMPlZCOND!<50S«INITt,3000*4>l<50S-INITS777/2» 



MICPC=MICPC + 1 
<MOVE1WRTEBRIIMM|<20» 



> INDEX TO NEXT BUFFER 



I UPDATE COPY OF POINTER 



» ADDRESS OF WRAP AROUND POINT 



J WRAPAROUND? 



JIF YES— -BRANCH 



SP DP,A0RB,SP1 
MICPCoMICPC + 1' 
<M0VE1SPX1DP1A0RB|SP1> 



f UPDATE PORT STATUS WORD 



.IF DF 

RBWRTE 
BR4 
STATE 
ALWAYS 
.ENDC 

.IF NDF $L0« 
ALWAYS FLUSH 
J>TCPC = *ICFC + 1 

< JUMPJ AI,cnNn;<FLl'SH-INIT&3n' 1 0»4>!<ri J wSH-IHIT(i777/2>> 



SLOW 

DP,<SELAtSP10> 

FLUSH 

RCVA 

BEXTT 



t BEAD LINE STATUS WORD 
I IF CLEAR ACTIVE SET— FLUSH 
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f 1 ) 

CI) 


01 55 1 


( 1 ) 

t 95 1 


1 55 1 2 


( 1 ) 
( 1 ) 


015512 


C 1 ) 
195? 


1 55 1 4 


( 1 ) 
f 1 1 


P 1 55 1 4 


( 1 ) 
1 °5 3 


1 55 J 6 


C 1 ) 
( 1 ) 
C 1 ) 


015516 


1 954 


015520 


( t ) 
t 1 ) 


01S520 


t 1 ) 
1 955 




1 956 
CI) 


"15522 


C 1 ) 
C 1 ) 


015522 


C 1 ) 
C 1 ) 
1 °57 


"15524 


( 1 ) 
f t ) 


01 5524 


( 1 ) 
1 95 s 


015526 


( 1 ) 


015526 


C 1 ) 

i °5 9 

C 1 ) 


015530 


C 1 ) 


■ U5530 


f 1 1 

t«MI 


015532 


C 1 ) 

< 1 ) 

C 1 ) 


015532 


1 "hi 


015534 


19ft? 
C 1 ) 


015534 


< 1 ) 

< 1 1 
f 1 1 


01«=534 


C ' ) 
( 1 ) 

106? 


"15536 


( 1 ) 
C 1 ) 


015536 



001651 
002642 



001652 
1 1 4641 



001653 
000424 



001654 
063234 



001655 
114646 



001656 
001 



001857 
043620 



001660 
060400 



001661 
117174 



001 662 
000401 



001663 
001 
010177 



MICPCsMICPC+1 

<MOVE! WRMEM ! IMM !<INTSTK» 

ALWAYS 20S 
MTCPOMICPC + 1 

<JUMP!ALCOND!<20S-INITi3000*4>!<20S-INIT&777/2>> 



I POINT TO START OF RECEIVE QUEUE 



50»l BRWRTE IHM.RCLl 
MTCPC«MICPC+1 
<MOVEJWPTEBP> IMM!<RCL1» 

SP BR,SELB,5P14 

MICPC«MICPC+1 

<M0VEISPX!BR!SELBISP14> 

ALWAYS 30S 
MICPOMICPC + 1 

< JUMP J ALCONDI<30»«INITS3000»4>l<30S-INIT&777/2» 

,DSABL L5B 
NTHRES: LDMA IMM, ST 
MICPCsMICPC+1 
,IF IDN IMM, IMM 
<M0VE1LDMAR! IMMt<ST£377» 
, IFF 

<M0VE1LDMAP1 IMMi<ST» 
.ENDC 

SPBR MEMX,SELB, SPO 
MICPCsMICPC+1 

<HOVE 1 SPBRX 1 MEMXi SELB i SP0> 



BRWRTE BP, ADD I SPO 
MICPC«MICPC+1 

<HOVE[WRTEBR1BRJ<»DD1SPO» 



JSHIFT LEFT 



ERRXX: 
NTRSO I 



BP4 OVRRUN 
MICPCbMICPC+1 

<JUMPIBR4CONKOVRRUN-INITS3000«4>i<OVRRUN-INITi777/2» 

BRWRTE IMM,1 
MICPC*MICPC+1 
<MOVE! WRTEBRl IMMK1» 



LDMA IMM,«RTHRS+3» 

MICPCsMICPC+1 

.IF IDN I MM, IMM 

<»0VEILDMAR1IMM1«PTHRS+3>S377» 
.IFF 

<M0VE1 LDMAR I IMM | «RTHR5+3>» 
.ENDC 

MEMINC IMM.O 
MICPCaMICPC+1 

<MOVEi WRMEM 1 INCMAR I IMM 1 <0>> 



n w C'l DHCP PROTOCOL IMPLEMENTATION 
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MACY11 27C1006) 
STACK KSNDLER 



14-DEC-76 16144 PAGE 8-40 



PAGEl 0173 



C 1 ) 






1 964 


"15540 




C 1 ) 




001665 


f 1 ) 


"15540 


062620 


( 1 ) 






1 965 


"J 5542 




C1 ) 




001666 


C 1 ) 




001 


CI) 


1 5542 


010241 


C 1 ) 






( 1 ) 






C 1 ) 




000 


f 1 1 






1966 


015544 




C 1 ) 




001667 


( ! ) 




001 


C 1 ) 






( 1 ) 






( 1 ) 


"15544 


053220 


f 1 ) 




000 


( 1 1 






1967 


"15546 




C 1 ) 




001670 


f ! ) 


01 5546 


01 6601 


f 1 ) 






1968 


"15550 




( 1 ) 




001671 


f 1 ) 


O15550 


002574 


C 1 1 






1 969 


015552 




C 1 ) 




001672 


C 1 ) 




001 


( 1 ) 


01 5552 


01 0241 


f 1 ) 






CI > 






C 1 ) 




000 


C 1 ) 






1970 


015554 




C 1 ) 




001 67 J 


( 1 ) 


015554 


002642 


f 1 ) 






1971 


(11 5556 




C 1 ) 




001674 


( 1 ) 


"1 5556 


000776 


f 1 > 






1 972 


"1 5560 




f 1 ) 




001675 


f 1 ) 


"1 5560 


0IS0160 


C 1 ) 






1 071 


01 5562 




f 1 ) 




iioi 676 


C 1 ) 
f 1 ) 


"1 5562 


1 15701 


1 m 


o 1 5 5 ft 4 




< 1 1 




;i"1677 


C 1 1 


"15564 


o r- " 1 o 7 



MEM BR, SELB 

MICPC«MICPC+1 

<"OVE ! WRMEM J BP ! <SELB» 

LDMA IMM,NXTSP 

MICPC«MICPC+1 

.IF IDN IMM, IMM 

<MOVE! LDMAR! IMM l<NXTSPS377» 

.IFF 

<MQVE 1 LDMAR ! IMM J <NXTSP>> 
,ENDC 

LDMA MEMX.SELBiSPXiSPO 

MICPC"MICPC+1 

.IF IDN MEMX, IMM 

<MOVE1LDMAP!IMMI<SELBISPX1SPOS377» 
.IFF 

<M0VE1 LDMAR! MEMXi <SELB1SPX J SP0» 
, ENDC 

MEMINC IMM, 201 
MICPC»MICPC+1 

<M0VE!WPMFMJ INCMAR t IMM 1 < 2 1 > > 

MEM IMM,«RTHRS» 
MICPC»MICPC+1 

<M0VE ! WRMFM ! IMM ! <<RTHRS>>> 

LDMA IMM,NXTSP 

MICPC«MICPC+1 

,TF IDN TMM, IMM 

<*OVE i LDMAR I IMM 1<NXTSP6377» 

, TFF 

<M0VE1 LDMAR! IMM }<NXTSP» 
.ENDC 

MEM IMM, INTSTK 

MICPCsMCPC + 1 

<MOVE ! WRMEM' IMM! <INTSTK>> 

BRWRTE IMM,«MMEND-2» 
MICPC=MICPC+1 

<MOVE ! WP.TEBP! IMM!«MMEND-2>>> 

C«P BP, SPO 

MTCPC»MICPC+1 
<SUBTCIBR' SPO> 



) ASSUME QUEUE WRAP AROUND 



jIT DID WRAP AROUND 



Z NTRS2 

*tcpc=m]tpc + i 

<JUMpj?.CONDJ<NT»SJ»INITS3000»4>l<NT«S?-INITR777/2» 



M irpc= w irpc+i 

C'riVE ! KPT'S? 1 1*«}<2» 



i-'Ff'SFT TO NEXT PAIR 



DMCil nriCMP PROTOCOL IMPLEMENTATION 
DDCHGH.WAC 06-DEC-76 1H34 



MACY11 27(1006) 14-DEC-76 16144 PAGE 8-37 
STACK HANDLER 



PAGE; 



0170 



CD 




( J 1 




t j > 




( 1 ) 




CI) 




( 1 ) 




1916 


015434 


C 1 ) 




( 1 ) 


015434 


C 1 • 
1917 


015436 






(11 


01 5436 


( 1 ) 






015 440 


' ( 1 ) 




CI) 


01544 


CI) 






m 5447 


C 1 ) 




CI) 


015 4 42 






o?n 


015444 


1 1 






n 1 C A A A 






a 


015 






i 


... 


C 1 ) 












1974 




C 1 ) 




C 1 1 


015450 


C 1 ) 




102": 




1 976 


01545? 


C 1 1 




C 1 ) 


11545? 


C 1 ) 




1 9?7 


015454 


C 1 ) 




C 1 ) 


015454 


C 1 1 




192" 


015456 


C t ) 




CI ) 




C1 ) 


015456 


C 1 ) 




CI ) 




C 1 ) 




( J ) 






0154f>0 



001622 
001 



001623 
053223 



001624 
016604 



001625 
072614 



001626 
016400 



001627 
017300 



001634 
001 



HICPC«HICPC+i 
, IF IOM IMM, IMM 
<MOVElLDMARI I«M!<NXTSP*1377» 
.IFF 

<MOVEtLDKARiIMM.<NXTSP» 
.ENDC 

SP MEMX 1 LDMAR, SELB, 5P3 

MTCPC«MICPC+1 

<MOVE ! SPX ! NEHX 1 LDMAR I SELB I SP3> 

MEMINC IMM, 204 
HICPC»MICPC*1 

<MOVEI WRMEM J INCMARi IMM; <204>> 

MEM BP i LDMAR, SELA J 3P1 4 

MICPOMICPC+1 

<MOVE 1 WRMEM 1 BR i LDM AR i <SEL A | SP 1 4» 

MEHINC IMM,0 
MICPCsMICPC+1 

<MOVEJWRMEMUNCMAR.IHH.<0» 

SP IMMJINCMAR,SP0,30O 
MICPCbHICPC+1 

<H0VEJ5PX1IMMIINCMARISP01300> 

BRWRTE IMMIINCMAR.2 
HICPC»MICPC+1 

<MOYE! HRTESP! IMM J ISCMAS!<2>> 



MEM MEMX, AANDB! SPO 

MICPOHICPC + 1 

<MOVE|WPMEHlMEMXt<AANDBlSP0» 



MEMINC MEMX,A0PBISP5 
MICPC*MICPC+1 

<MOVE 1 WRMEM t INCHARI MEMXK AORB i SP5» 

MEHINC BR.SELA1SP4 
HICPCnHICPC+1 

<M0VE!WRMEM.INCMAR.BR.<SELAISP4» 

LDMA IMM.NXTSP 

MICPCbMICPC+1 

, IF IDN IMM, IMM 

<«0VE1 LDMAR! IMMKNXTSP&377» 

.IFF 

<MOVEl LDMAR !IMMJ<NXTSP» 
.ENDC 

MEM BR> ADD I SP3 

MTCPC«MICPC+1 



>COPY TO SP3 



i RECEIVE DONE IMAGE 



JCOPY LINK ADDRESS TO NEXT INTER 



j ZERO THE FLAGS 



jWRITE A 300 TO SPO 



I PREPARE TO ADDRESS NEXT 



j INTERRUPT STACK AND INCREMENT 
j THE MAR 

J MASK OFF ORIGINAL HIGH BYTE 



jOF COUNT SAVING EXTENDED MEM BITS 
iCOPY TO MEMORY LINK 



J ADDRESS NEXT INT STACK 



DMC11 DDOP PROTOCOL IMPLEMENTATION MACY11 27C1006) 14-DEC-76 16«44 PAGE 8-39 PAGEl 0171 

DDCHGH.MAC 06-0EC-76 11:34 STACK HANDLER 



C 1 ) 


115460 


062403 


<MOVE 1 WRMEM 1 BR 1 < ADD 1 SP3» 




f 1 ) 
1030 

C 1 ) 
C 1 ) 
C 1 ) 


0154&2 
015462 


001636 
000776 


BRWRTE IMM,«MMEND-2» 
MICPC«MICPC+1 

<MQVEi WRTEBR i IMM j «MnEND-2>>> 


jADDRESSEND OF INT STACK 


19)1 
C 1 1 
C 1 ) 


015464 
015464 


001637 
060363 


OP BR.SP3 

MICPOHICPC+1 

<SUBTC1BR1SP3> 


jWRAP AROUND 


C 1 ) 
1017 
1 1 ) 
C 1 ) 


015466 
015466 


001640 
115551 


Z 40$ 
MICPCsMICPC+1 

<JUMP>ZCONO<<40$-INIT&3000*4>1<40$- 


JIF YES-- BRANCH 
INIH777/2» 


C1 ) 

1033 

1934 
f 1 ) 
C 1 ) 


015470 
015470 

015470 


001641 
000405 


20$: 

BRWPTE IMM, 5 
MICPC»MICPC+1 
<»0VE!WPTEBR!IMM.<5» 


J INDEX TO NEXT BUFFER 


C 1 1 

1 915 
( 1 ) 

C1 1 

f 1 ) 


01 5472 
015472 


001642 
063"14 


SP BP, ADD. SP1 4 

HICPC»MICPC+1 

<M0VE!SPX!BR!ADD1SP14> 


) UPDATE COPY OF POINTER 


l«3fi 
( 1 1 
C 1 ) 
C 1 ) 


015474 
015474 


001643 
000467 


BRWRTE IMM.STC 

MICPCeMICPC+1 

<MOVE ! WRTEBR I IMM I <STC>> 


(ADDRESS OF WRAP AROUND POINT 


1937 

C 1 ) 
C1 ) 
C 1 1 


015476 
015476 


001644 
O60374 


CMP BR.SP14 

MICPCsMICPC+1 

<SUBTCIBRJSP14> 


t WRAPAROUND? 


1033 
( 1 ) 

C 1 ) 


015500 
015500 


001645 
1 15653 


Z 50S 
MICPCsMICPC+1 

<JUMPIZCONDJ<50S«INITS3000#4>1<50S- 


}IF YES— BRANCH 
TNIT&777/2» 


1039 
( 1 1 
f 1 ) 
CI ) 


01 5502 
01 5502 


001646 
000420 


30$ t BBWRfR ISri,zo 
MTCPC=MICPC + i 
<MOVE1WRTEBP1IMMJ<20» 


= ai EK pf!H T^TF.P.UPT PENDING 


1910 
C1 ) 
C 1 ) 
C 1 ) 


015504 
015594 


001 647 
063301 


SP DP,A0RB,SP1 
MICPCsMICPC+1 

<moveispx:dpuorb.spi> 


f UPDATE PORT STATUS WORD 


1 9 41 
1047 
194 1 
1014 
1045 
104*i 
1«47 

1 tin 
c 1 ) 
C 1 ) 
r 1 ) 


015506 
01 5506 


001 

noo 
oni 

0<n65n 
104115 


,IF DF SLOU 

BOWRTE DP,<SELAtSP10> j READ LINE STATUS WORD 
BR4 FLUSH jIF CLEAR ACTIVE SET— FLUSH 
PC 1 1 STATE RCVA 
ALWAYS REXIT 
.ENDC 

.IF NOF SLO'< 
ALWAYS FT USH 
>«TCPC = MirPC + l 

<1UMP1 ALCnfin; < FLUSH-IN ITS 3 on n#4> ! <FLV5H-I»IlTfc7 7 7 / 2>> 


1 040 






, F-sinc 





DMC11 DDC V P PROTOCOL IMPLEMENTATION 
DOCMGH.MAC 06-OEC-76 11134 



MACYlt 27(1006) 14-DEC-76 16»44 PAGE B-39 
STACK HANDLER 



PAGE! 0172 



( 1 ) 




001651 




MICPC«MICPC+1 


C 1 ) 

( 1 ) 


01 5510 


002642 




<M0VE ! WRMEM 1 IMM I <INTSTK>> 


\ OS 1 


01 55 j j 






ALWAYS 20$ 


t I ) 




0(11652 




MTCPC«MICPC+1 


( 1 ) 
( 1 ) 


01 5512 


1 1 4641 




< JUMPS ALCONDJ<20»»IHITS3000«4>l<208-INITi777/2» 


195? 


015514 




5081 


BP^FTF IMM RC* 1 (POINT TO START OF RECEIVE 


( 1 ) 




001653 




MICPC*MICPC+1 


( 1 ) 
( 1 ) 


01551 4 


000424 




<"0VE}WRTEBP{IMM5<RCL1» 


1 °5 3 


0155 16 






SP BR,SELB,SP14 


( 1 ) 




0OJ654 




MICPC»HICPC+1 


( 1 ) 
( 1 ) 


0155)6 


063234 




<M0VEISPX!BR!SELB1SP14> 


1954 


01 5520 






ALWAYS 30$ 


( 1 ) 




00165S 




MICPC»MICPC+1 


( i ) 
( 1 1 


015520 


114646 




<JOMPlALCONDJ<30$«INI«3000«4>l<30$-INITt777/2» 


ms 








,DSABL LSR 










LDMA IMM, ST 


( 1 ) 




001656 




MICPC=M1CPC+1 


( i ) 




001 




,ir ION IMM, IMM 


( i ) 


015527 


01O152 




<MQVEILDMAP1IMMXST&377» 












( i ) 








<MOVElLDHAPJIMMS<ST» 


( i ) 
( 1 1 




000 




, ENDC 










SPBR MFMX, SELBf SPO 


1 1 1 




001657 




MICPCaMICPC+t 


( t ) 

( i ) 


015524 


043620 




<M0VElSPBRX!MEMXi5ELBlSP0> 










BWWpTE BRf ADD 1 5P0 I SH I FT LEFT 


( i ) 




001660 




MICPC»MICPC*1 


' 1 ) 
f i ) 


015526 


060400 




<MOVE1WRTEBR1BR|<ADD1SPO» 










ar e *t UVKKUN 


( 1 ) 




001661 




MICPC»MICPC+1 


1 1 1 
t 1 ) 


"15530 


117174 




<JUMPIBR4CONl<OVRRUN-INITi3000#4>i<OVRRUN-INITS777/2» 


106(1 


015532 






BRWRTE IMM.l 


C 1 1 




001662 




MICPCaMICPC+i 


( t ) 
f 1 ) 


015532 


000401 




<H0VEIWRTEBP1IMHK1» 


PM 


015534 




ERRXXl 










N I KOU 1 


r nut TMM />DTUBCi1S\ 


f 1 ) 




001663 




MICPCeMICPC+1 


t 1 > 




001 




.IF IDN IMM, IMM 


( 1 1 


015534 


010177 




<M0VElLDMARJIMMl«FTHR5+3>fc377» 


( 1 1 








.IFF 


f 1 1 








<M0VElLDMARtIMMi«RTHRS+3»> 


C ' 1 
( 1 ) 




000 




.ENDC 


1061 


"1S536 






MEMINC IMM.O 


( 1 ) 




001664 




MICPCoMICPC+1 


f 1 ) 


•115536 


01 6400 




<MOVE 1 WRMEM 1INCMAR! IMM |<0>> 



D«CH DDC'-'P PROTOCOL IMPLEMENTATION 
DOC^GH.vac 0*-OEC-76 11:34 



MACYll 27(1006) 
STACK HANDLER 



14-DEC-76 16144 PAGE 8-40 



PAGEi 0173 



( 1 1 






1 064 


015540 




( 1 ) 




001665 


f 1 ) 


"1*540 


062620 


( 1 ) 






1 065 


"15542 




( 1 ) 




""1666 


( 1 1 




001 


(I) 


015542 


010241 


( 1 ) 






( 1 1 






( 1 1 




000 


( 1 1 






1966 


015544 




( 1 ) 




001667 


( 1 ) 




oot 


( 1 ) 






( 1 ) 






( 1 1 


"15544 


O53220 


r 1 ) 




000 


( 1 1 






1967 


015546 




(1 ) 




001670 


< 1 ) 


015546 


016601 


(1 ) 






196P 


015550 




( 1 ) 




O01671 


f 1 ) 


015550 


002574 


(1 1 






1 969 


015552 




(1 ) 




001672 


(1) 




001 


( 1 ) 
( 1 ) 


015552 


010241 


(1) 






( 1 ) 




000 


( 1 ) 






1970 


015554 




( 1 1 




001673 


( ' > 


015554 


002642 


t 1 1 






1971 


015556 




( 1 1 




001674 


( 1 ) 


"15556 


000776 


( 1 1 






l 972 


"15560 




( 1 ) 




001675 


( 1 ) 


"15560 


060160 


( 1 ) 






1 971 


"15562 




f ' ) 




0") 676 


( 1 ) 
( 1 ) 


"1556? 


1 1 5701 


1074 


"15 5 6 4 




( 1 11 




""16 77 


( 1 1 


" 1 S664 


f ■ " 1 fi 7 



MEM BR.SELB 

MICPC«MICPC+1 

<"0VEIWFMEMIBP2<SELB» 

LDMA IMM.NXTSP 

MICPC*MICPC+1 

.IF IDN IMM, IMM 

<M0VE!LDMARJIMMl<NXTSPi377>> 

.IFF 

<MOVE!LDMAR! IMMJ<NXTSP» 
, ENDC 

LDMA MEMX.SELB1SPXISP0 

MICPC»MICPC+1 

.IF IDN MEMX.IMM 

<M0VE! LDMAP ! IMM I <SELB |SPX!SP0&377>> 
.IFF 

<MOVEiLDMARJMEMXl<SELBlSPXiSP0» 
. ENDC 

MEMINC IMM, 201 
MICPC»MICPC*1 

<MOVE!WRMRM1INCMAR|IMMI<201» 

MEM IMM,«RTHRS» 
MICPC«MICPC+1 

<MOVE i WRMFM I IMM1 «RTHRS»> 

LDMA IMM.NXTSP 

MICPC«MICPC+1 

. TF IDN IMM, IMM 

<MOVE! LDMAR ! IMM J <NXTSPt 377>> 

. TFF 

<M0VEILDMARIIMM1<NXTSP» 
. ENDC 

MEM IMM, INTSTK 

MICPC«MICPC+1 

<MOVE! WRMEM ! IMM1<INTSTK» 

BRWRTE IMM,<<MMEND-2» 
MICPC«MICPC+1 

<MOVf! WRTFBPl IMMl«MMEND-2>>> 

C«P BR, SPO 

MICPCiMICPC+1 
<SUBTCIRR! SPO> 



(ASSUME QUEUE WRAP AROUND 



(IT DID WRAP AROUND 



Z NTRS2 
"tCPCaVicPC+i 

< JUMP i 7.C0NDI <NTRS2-INTTS,3O0O»4>! <*tT«S?-TNTT&777/2>> 



WOWRTR I u e,2 
M TC^C= ! ' J irPC + l 
<"nVEJW3TFBpjI» 



VKSFT TH NEXT PAIR 



DMCtl ODCMP PROTOCOL IMPLEMENTATION 
nr>CHC.H.MAC 06-OEC-76 11134 



MACYJ1 27(1006) 14-DEC-7S iS:44 PAGE 8-4! 
STACK HANDLER 



PAGES 0174 



015566 
015566 
015570 
01 5570 
015572 

015574 
015574 
015576 

015576 

015600 
015600 
015602 
115602 
015604 
015604 
015606 
01 5606 
1 5 6 1 C 
015610 



001700 
062400 



001701 
000420 



001702 

0637C1 



001703 
116134 



001704 
001 
010171 



001705 
043231 



011706 
OS3071 



011707 
O0O401 



101 710 
0*3 310 



001711 
114415 



MEM BP.ADDISPO 

MICPCaMICPC+1 

<WOVE!SRMEHiBR!<AOD!£PB>> 

NT.RS2 1 BRWPTE IMM,20 
MICPC»HICPC+1 
<M0VE1WRTE8FIIK*!<20» 

SPBP. BR,A0RB,SP1 
MICPC«MICPC+1 

<MGYE 1 SPBRX 1 BR ! ACRE I SP1 > 



j UPDATE QUEUE POINTER 



SMAKU 



SNAK21 



j flagged by error type 



BRO TAB1 
MICPOMICPC + 1 

<JUMPlBROCONKTABl-INITi3000»4>!<TABl-INIT&777/2» 

LDKA IKM # ISPtl 
WICPCsMICPC+1 
.IT IDN IMM,IMM 
<MOVEiLDHARJ IMMKISPi li377» 
.IFF 

<MOVE 1 LDMAR 1 IHM KI5P1 1 » 
.ENDC 



SP MEMX, SELB,SP11 

MICPC*MICPC*1 

<M0VE1SPX!MEMXJSELBJSP11> 

5P BR,INCA,SPil 

MICPCaMICPC+1 

<M0VEJSPX!BPIISCAISP11> 

BRWRTE IMM,1 
WICPCeMICPC+1 
<M0VEIWRTEBR1IHMJ<1» 

SP BP,AORB,SPiO 

MICPCbMICPC+1 

<MOVElSPXiBPIAORB!SP10> 



} INCREMENT MSG EXPECTED 



jUNNUMB PENING BIT TO BR 



| UPDATE LINE STATUS WORD 



ALWAYS FLUSH 
MICPC«MICPC*1 

<JUMP!ALCONDl<FLUSH-INIT&3000*4>l<FLUSH-INITt,777/2» 



'36 015612 



001712 
015612 000424 



001713 
015614 062226 



EMTRIGl BPWRTE IMK.24 
MICPC«MICPC+1 
<N0VEJWRTEBRIIMMJ<24» 

OUTPUT BR,<SELB10BAI> 
MTCPCaHICPC+1 

<MOVE 1 WROUT I BR 1 <SELB J 0BA1 » 



1«HP 

( 1 ) 



BPWRTE IJ«M,0 
MICPCoMICPC+1 



D«C11 POC M P PROTOCOL IMPLEMENTATION 
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MACY11 27(1006) 
STACK HANDLER 



14-DEC-76 16»44 PAGE 9-42 



PAGE: 0175 



( 1 ) 


oisfiifi 


010400 


( 1 1 






10 59 


015620 




1 1 ) 




0O1715 


( 1 1 


01 5620 


062227 


( 1 ) 






1990 


015622 




f 1 ) 




001716 


( 1 5 


015622 


023740 


( 1 ) 






190) 


015624 




( 1 ) 




001717 


f 1 ) 


015S24 


062222 


( 1 ) 






1 9«? 


015626 




(1) 




001720 


r 1 1 


015626 


000766 


m 






1993 


015630 




tn 




001721 




015630 


062323 


( i i 






1991 


015632 




(1 1 




001722 


( 1 ) 


015632 


000121 


( 1 1 






1995 


015634 




( 1 1 




O01723 


( 1 ) 


015634 


061231 


( 1 1 

1996 


015636 




( 1 ) 




001724 


( 1 ) 


015636 


061230 


( 1 ) 






1997 


015640 




( 1 ) 




001725 


( 1 ) 


015640 


120600 


f 1 ) 






1 990 


015642 




C 1 5 




001726 


( 1 ) 


015642 


102371 


( 1 ) 






199° 


015644 




(1) 




001727 


(11 




001 


( 1 ) 


0156 44 


002420 


( 1 ) 






( 1 1 






( 1 1 




100 


2000 


01 5646 




r 1 1 




001 730 


r i ) 


01 5646 


190764 


C 1 1 






2 o 1 


0156*0 




< 1 ) 




00 ! 1 » ! 


( 1 1 




"71640 



<*I0VEIWRTEBRJIMMI«)» 

OUTPUT BR,<SELB10BA2> 
HICPC«MICPC+1 

<"0VEIWR0UT1BRKSELB10BA2» 

SPBP IBUS,BM873,SP0 
MICPC«HICPC+1 

<m VE ! SPBRX ! IBUSI RM873 1 SPO> 

OUTPUT BR , SELB I OUTD A 1 
MICPCbHICPC+1 

<M0VE1WP0UTJBR1<SELB10UTDA1» 

BRWRTE IMM.366 

MICPC«MICPC+1 

<*0VEIWRTFBR1IMM1<366» 

OUTPUT BR.SELBJ0UTDA2 
MICPCoHICPC + 1 

<HOVESSROUTiBRS<SELBJ0UTDA2» 

BPWRTE IHM, 21 

MICPC«MICPC+1 

<M0VE1WRTEBR1IMM1<21» 

OUT BR,<SEL8!0BR> 
MICPCoMICPC+1 

<MOVEJWPOUTXlPRt<SELB10BR>> 

OUT BR,<SELB|ONPR> 
MICPCnMICPC+1 

<MOV£lWR0UTXlBRi<SELBiONPR>> 

BPWRTE IBUS,NPR 
MTCPC«MICPC+1 
<MOVElWRTEBRt IBUSKNPR» 



) READ BM873 ADDRESS— 



j SET UP LOW BYTE OF ADDRESS 



I HIGH BYTE BASE FOR ROM BOOT 



I MASK FOR TIMER AND ALSO TO START NPR 



| READ NPR CONTROL 



8P0 CKTIME 
MICPC«MICPC+1 

<JUHP!BR0C0NJ<CKTIME-INITt3000»4>l<CKTIME-INIT&777/2» 

MEMADR RM1 ) IF NPR DONE 

MICPC=MICPC+1 

.IF B 

<Mt)VEl WRMEMl<RMl-INITt777/2>> 
.IFF 

<"OVEJ WPMEH1 J<RMl-INITfi777/2>> 
.ENDC 

ALWAYS ACLOW 
«TCPC=MTCPC+1 

<Jd u P! ALCOf«D!«ACLOW-IN ITS 30O0*4> KACLHW- I'll T&7 77/2>> 



SPUR IP11S, RCVCON, SPO 
■<ICPC = MTCt>C + l 

<"OVf; » SPfiRX i IBftS t RF VCON ! SP<1> 



S READ PECETVKR CONTROL REG 



cmc ii one? protocol implementation 

DDCHGH.MAC 06-PEC-76 11134 



MACY11 27 ( 1 0063 14-DEC-76 16}44 PAGE 8-43 PAGE: 0176 

STACK HUNDLER 



( 1 ) 






200? 


015652 




( 1 ) 




00173? 


( 1 ) 


01 5652 


060400 


en 






200} 


015654 




f 1 1 




001733 


( 1 i 


015654 


10J451 


( 1 ) 






2004 


01 "5666 




( 1 1 




001734 


(1 ) 




001 


f 1 1 


01565S 


010154 


(1 1 






cn 






en 




000 


( 1 > 






2005 


01 5660 




(1 ) 




001735 


(11 


01 5660 


000402 


( 1 1 






2006 


015662 




(1) 




001736 


( I ) 


015662 


076670 


( 1 ) 






2007 


015664 




(1 1 




001737 


( 1 


015664 


07661 1 


(1 ) 






200B 


015666 




f 1 1 




001740 


(11 


01 5666 


07661 2 


(11 






2009 


015670 




( 1 ) 




0O1741 


(1 > 


0! 5670 


07661 4 


( 1 1 






2010 


015672 




( 1 1 




001742 


( 1 ) 


015672 


076616 


d ) 






201 1 


015674 




(11 




001743 


( 1 ) 


015674 


076617 


(1) 






201 2 






2013 


015676 




( 1 1 




001744 


( 1 ) 


015676 


000460 


201 4 


01 5700 




( 1 1 




001745 


( 1 1 




001 


( 1 1 
(11 


01 57f)0 


010210 


( 1 ) 
(11 




000 



BPWPTE BR, ADD i SPO 
MICPC«MICPC+1 

<MOVE I WRTEBR 1 BRKADD ! SPO» 



j SHIFT LEFT 



jRECEIVE ACTIVE— IDLE 



BP7 IDLE 
MICPC«MICPC+1 

< JUMP 1BR7C0NK IDLE- INIT&3000»4> KIDLE-INITS777 /2» 

LDMA IMM,IMG10 
"ICPC«MICPC*1 
.IF IDN IMM, IMM 
<MOVE!LDMAR! IMM!<IMG104377» 
.IFF 

<MOVE!LDMAR! IMM!<IMG10» 
,ENDC 

BPWRTE "MM, 2 
MTCPC»MICPC+1 
<M0VE1 WRTFBR 1 IMMJ <2>> 



MEMINC BR, AANDBJSP10 
MICPC»MICPC+1 

<M0VE!WRHEM1 INCWAP1BR1<AANDBJSP10» 



jSAVE BIT 1 OF SP10 



MEMINC BR,SELAiSPil 
MICPC«MICPC+1 

<MQVE ! WRMEM t INC HAP 1 BR 1 <SELA I SPi 1 >> 



I SAVE SP11 



meminc br.selaisp12 
micpc»micpc*1 

<moveiwpmemsinc»«ap:bpi<selaispi2» 



) SAVE SP12 



MEMINC BR,SELA1SP14 
HICPC»HICPC*1 

<M0VE1 WRMEM 1 INCMAR1 BRl<5ELA ! SPI 4>> 



J SAVE SP14 



MEMINC BR,SEIASSP16 
MICPCoHICPC+1 

<MOVEtWPME»J INCMARIBRKSELAISP16>> 



j SAVE SP16 



MFMINC BR,SELAISP17 |SAVE 5P17 

MICPC*MICPC+1 

<MOVE ! WRMEM. 1 INCMAR 1 BRKSELA t5P17» 

(MAR NOW POINTS TO BASE 
STATE RB2 jDO NOT CHANGE BR UNTIL RBO 

HICPC«MICPC + 1 

<MOVElWRTEBPJI«MJ<RB2-INITS,777/2» 

LDMA IMM, TA8ST jPOINT TO TABLE UPDATE STATE 

HICPC«HICPC+1 

.IF IDN I MM, IMM 

<MOVEILDMAP> IMMJ<TABSTi377>> 

.IFF 

<MOVEJ LDMAB ! IMH I <TABST» 
,ENDC 



DMC11 DHCMp PROTOCOL IMPLEMENTATION 
DDCHGH.vaC 0fc-r>EC-76 1H34 



MACYil 27(1006) 
STACK HANDLER 



14-DEC-76 16|44 PAGE 8-44 



PAGE! 0177 



( 1 1 




201 5 


015702 


(1 ) 


"1570? 


(?) 




(21 


015702 


(?) 




201 6 


015704 


( 1 1 




(1) 


015704 


( 1 ) 




2017 




20ic 




2010 


015706 


( ! ) 




( 1 ) 




(1) 


O15706 


(1 1 




(11 




(1 ) 




( 1 1 




2020 


015710 


(1) 




( 1 ) 


015710 


(11 




2021 


015712 


(1 1 




( 1 1 


0t5712 


( 1 ) 




202? 


015714 


(1 > 




(1 ) 


015714 


( 1 1 




2023 


015716 


(1) 




( 1 1 


015716 


(1 1 






015720 


(1) 




( 1 1 


Ot57?0 


r 1 1 




2025 


015722 


( 1 ) 




( 1 1 


015722 


(1 ) 




2026 


015724 


( 1 ) 




(11 


015724 


(1 ) 




2027 


015726 


(1 1 




( 1 1 


015726 


( 1 ) 




20?e 


11573c 


(11 




( 1 ) 


1115711 


( 1 5 





001750 
001 



001751 
1 04442 



001752 
00040? 



00175 3 
063004 



001754 
023140 



001755 
062006 



001756 
023160 



001757 
062107 



0(11760 
1 05 366 



001761 
16060 1 



PSTATE TBU1 
MEM IMM,«TBUt-INITS777/2>> 
M7CPC»MICPC+1 

<MOVE! WRMEM! IMM l«TBUi -INITft 777 /2>» 



I NEW PORT STATE ADDRESS 



SP IMM,4,SP4 

MICPCsMICPC+1 

<M0VE1SPX1IMM141SP4> 



LDMA IMM, BASE 
i-ilCPCsKICPCti 
.IF IDN IMM, IMM 
<MOVE!LDMAR! IMM1<BASES377» 
.IFF 

<M0VE1LDMAR! IMM><BASE» 
, ENDC 



INITIALIZE COUNT 



I NOTE J FIRST 6 RAM LOCATIONS ARE NOT WRITTEN 
j TO CORE TABLE, 



ALWAYS RBO 
MICPC«MICPC+1 

<JUKPtALCONDl<RB0-INIT63000«4>KRB0-INITt777/2» 



» INCREMENT COUNT/TEST 



! POINT TO NEXT ADDRESS 



BRWPTE IMM, 2 
MICPCoMICPC+l 
<M0VEIWRTEBP1IMMI<2» 

SP BR,ADD,SP4 

MICPCaMICPC+1 

<M0 VE i SPX 1 BP « ADD I SP4> 

SP IBUS.IOBAl.SPO 

MICPCaMICPC+1 

<M0VE1SPX1IBUS[I0BA11SP0> 

OUTPUT BR, ADD ! 0BA1 
MICPC=MICPC+1 

<M0VE!WR0UT!BP!<ADDIDBA1» 

SP IBUS,IDBA2,SP0 
MICPCsMICPC+1 
<M0VE1SPX1IBUS1 IOBA21SP0> 

OUTPUT BR.6C10BA2 

MICPC=MICPC+1 

<MOVE! WR0UT"BP!<AC!0BA2>> 



C TARMXT 
MTCPCiMICPC+1 

<JU'-'P!CCO«ID!<TABMXT-INITt 30iO»4>J <TAB«XT-INITH7 77 /2>> 



BPWPTE BP.SELA15P1 
M .irPC = HICPC+ 1 

<'-TVE: WPTF BR1RP!<SELA!5P1>> 



■PF.AD PORT STAT'IS 



DMC11 DOCHP PROTOCOL IMPLEMENTATION 
DDCHG^.MAC 06-DEC-76 11134 



MACY11 27(10063 i4-DEc-76 16>44 PAGE 8-45 
STACK HANDLER 



PAGE: 0173 



2025 


015732 




1 1 ) 




001762 


( 1 ) 


015732 


1 16374 


( 1 ) 






20*0 






203 1 


015734 


001 763 


( 1 ) 


015734 


070604 


( 1 1 






2032 


015736 




( 1 1 




001764 


C 1 ) 


015736 


H737S 


( 1 1 






203 1 


015740 




( 1 ) 




001765 


( 1 1 


015740 


056222 


( 1 1 






2031 


015742 




( ! 1 




00176S 


(11 


015742 


056223 


( 1 1 






2035 




001 


203* 


015744 




(15 




001767 


( 1 1 


015744 


123200 


( 11 






20 ?7 




000 


20 3 H 


015746 




1 1 1 




001770 


(11 


0157 46 


1 04632 


(11 






20 31 


015750 




( 1 1 




001771 


( 1 ) 




001 


( 1 1 


015750 


010210 


f ! 1 






( 1 1 






( 1 1 




OOO 


( 1 > 






2040 


015752 




( 1 ) 


015752 




(2) 




001772 


(21 


015752 


002460 


( 2 ) 






2041 


015754 




(1 ) 




001773 


tl) 


015754 


104420 


( 1 ) 






2042 


015756 




(11 




001774 




n i 5 7 c 5 


H706G4 


( 1 ) 






204 1 


015760 




( 1 1 




001775 


f 1 ) 


015760 


1 17771. 


(1 1 







jTNIT MODE» WRITE OUT 200 BYTES 



BRO 30$ 
MICPC»MICPC+1 

<J0MP!BR0CONK30S-INITt333O«4>i<3O8«IHITS777/2» 



BPWRTE BRJLDKAP.SELAJSP* 

MICPCsSSICPC+l 

<MDVE I WRTEBR J BR 1 LDH AR J <SELA ! SP4» 

8R4 20S I ALL DONE 

MICPCaMICPC+1 

<JUMP;BR4CO«ii<20$»IKITS3e0O»4>S<205-ISI"fc7"7/2» 



jOTHERWISE ONLY WRITE OUT ERROR COUNTERS 
I READ COUNTER 



OUTPUT MEMX1 INCMAR.SELBJOUTDA1 
MICPC«MICPC+1 

<M0VE 1 WROUT ! ME»X I INCH AR KSELB I OUTO Al » 

OUTPUT MEHX! INCMAR, SELB J0UTDA2 
MTCPCsMICPC+i 

<H0VEl«R0UT!MEKS 1 lI»C!tAPi<SELB:0UTDA2» 

.if ndf slo* 
sp ibus.npr.spc 
. micpc»mtcpc+1 
<move(spxiibus:npr:spo> 

.ENDC 

ALWAYS RK8 
MICPCxMICPC + 1 

<JUMP1 ALCOND!<RK8-INI«3000«4>!<PK8-INITt777/2» 

LDMA IHM, TABST 
HICPC"«TCPC*i 

.if idn im.im 

<MOVE!LDMARIIM>i«?AB3T&J77» 
.IFF 

<MOVE I LDHAR 1 IHM { <TABST» 
.ENDC 

PSTATE 13 

HEM IMM,«I3«IHITS777/2» 

MICPC»MICPC*i 

<MOVE:WRMEMlIMMl«I3-INITfc777/2>» 

ALWAYS RH1 
MICPC»HICPC+1 

<JUHP> ALCONDJ<RMl-INITt3000»4>J<RMl-INIT6777/2» 

BRWRTE BPi LDHAR.SELA1SP4 (READ COUNTER 

HICPC»MICPC+1 

CMOVE! WRTEBR iBR! LDMARKSELA ! 5P4>> 

BR7 20$ I ALL DONE 

MICPC"MICPC+1 

<JUMPlBR7C0N!<20*«INIT&3000«4>!<20S-INIT&777/2» 



J STORE COUNTS OF ERRORS 



DMCU ODCMP PROTOCOL IMPLEMENTATION 
DDCHG'-J.-'AC 06-DFC-76 11! 34 



MACYU 27(1006) 14-DEC-76 16:44 PAGE 8-46 
STACK HANDLER 



PAGE t 0179 



2044 
(1 ) 
( 1 1 
(11 

2045 
( 1 ) 
( 1 1 
( 1 ) 

20 4*' 

2047 



001 776 
114765 



001777 
000000 



ALWAYS 108 » KEEP GOING 

HICPCeWICPC+i . 

<JUMPlALCONDl<10S-INITS30O0*4>K10S-INI«77?/2» 

SZERO 

MICPCsHICPC+1 
000000 



.END 



APS , 015766 



ERRORS DETECTED! 

DEFAULT GLOBAIS GENERATED! 

,Dr>CMP/CPF/OS!CRF_OMCHGH,HILOW,DDCHGH 
RUN-TIME! 16 31 .1 SECONDS 
RUN-TIME PATIO! t89/48=3.8 
COP? USED ! 7K (13 PAGES) 



1*23 
1674 
1*25 
1626 
1677 
1629 
16?9 
163" 
16M 
1632 
1613 

1615 015774 012737 016100 001216 
1636 

1637 016002 104412 



I *»*♦####»»»»»»*****»»*»«*»* TEST 1 •**•••••«•••••••*•**»***•*• 

»#TEST OF BR RIGHT SHIFT 

J*VF.RIFY THAT A DEST OF BR RSH (Oil) OF A MICRO-INSTRUCTION 
!»SHIFTS THE RESULTING BR DATA RIGHT ONCE. 

I 1 »**»»#*«#»♦»#******♦#*»♦**#♦*»**»»**»»«*»••*»»»•*»*«*»»»*#»*» 

J TEST 1 



MOV 
MOV 



Sis TSTMQ 
tTST2» NEXT 



;R1 CONTAINS BASE DMCU ADDRESS 
I MASTER CLEAR DMCU 



DZPMH MACY11 27( 1006) 14-DEC-76 16(32 PAGE 35 

DZD"H,PH 09-0FC-76 14(59 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 



PAGES 0180 



1638 


01 6004 


013701 


001404 


MOV 


DMCSR.Rl 


(Rl s DMC BASE ADDRESS 




1139 


016010 


005011 




CLR 


CRli 


(CLEAR SELO 




1640 


016012 


012705 


052525 


MOV 


#52525, R5 


1 START WITH 125 




1111 


01601 6 


010161 


0O0O04 


MOV 


R5,4CR1) 


jP0RT4_125 




1642 


016022 


104414 




ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK 


PC35304 


16*3 


016024 


120500 




120500 




(BR „ P0RT4 




1644 


016026 


104414 




ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK 


PC«5304 


1645 


016030 


061620 




061620 




f BR RSH_BR, SHIFT BP RIGHT 




1646 


016032 


104414 




ROMCLK 




| NEXT WORD IS INSTRUCTION, ROMCLK 


PCB5304 


1647 


016034 


061 225 




061225 




f P0RT5_BR 




1648 


01 6036 


0P6001 




ROR 


R5 


|R5 * "EXPECTED" 




1649 


016040 


116104 


000005 


MOVB 


5CR1),R4 


(R4 « "FOUND" 




1610 


016044 


1 20504 




CMPB 


R5,R4 


(DID BR SHIFT RIGHT ONCE? 




1611 


016046 


1)01401 




BED 


If 


f BR IF YES 




1612 


016050 


1 04012 




HLT 


12 


1 BR RIGHT SHIFT ERROR 




1613 


016052 






IS: 








1614 


016052 


10441 4 




ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK 


PC»5304 


1615 


016054 


061620 




061620 




> BR RSH_BP, SHFT BR RIGHT AGAIN 




1656 


016056 


114414 




ROMCLK 




I NEXT WORD IS INSTRUCTION, ROMCLK 


PC»5304 


1657 


016060 


061 225 




061225 




( P0RT5-BR 




1658 


016062 


006005 




ROR 


R5 


>R5 b "EXPECTED" 




1659 


016064 


116104 


000005 


MOVB 


5CR1),R4 


jR4 s "FOUND" 




1660 


016070 


120504 




CMPB 


R5,R4 


(DID BR SHIFT RIGHT? 




1661 


016072 


001401 




BEQ 


2t 


(BP IF YES 




1662 


016074 


104012 




HLT 


12 


(BP RIGHT SHIFT ERROR 




1663 


01 6076 


104400 




2S! SCOPE 




. | SCOPE THIS TEST 





t 664 
1665 
1 666 
1 667 
1668 
1669 
1670 



>♦»»»»»»♦»#«»##»»»»»*##»»»•# TEST 2 »*«»♦♦♦»•»»♦**»#»#**»«»»»»» 

|*IOP CRAM WRITE/READ TEST 

(•FLOAT A 1 THROUGH EACH CRAM LOCATION 

i :»»•«•*••»••<•*••«*••••*••••*•••••**«*••*•*•**•***••*•••**•••• 



1671 












1 TEST 


2 




1672 


















1673 


016100 


01 2737 


000002 


001226 


TST21 


MOV 


#2,TSTN0 




1674 


016106 


012737 


016214 


001216 




MOV 


ITST3,NEXT 




1675 


016114 


012737 


016140 


001220 




MOV 


#3$, LOCK 




1676 
















(Rl CONTAINS BASE DMCll ADDRESS 


1677 


016122 


032737 


100000 


001366 




BIT 


#BIT15,STATl 


(DOES DMC HAVE CRAM? 


167" 


01 61 30 


0O1430 








BEQ 


5S 


(SKIP TEST IF NO CRAM 


1679 


016132 


005000 








CLP 


RO 


»R0 = CRAM ADDRESS 


1680 


01 6134 


012702 


000001 




is: 


MOV 


#1,R2 


|R2 « WRITE DATA 


1 681 


016140 








2SS 








168? 


0t6l40 


01271 1 


002000 




381 


MOV 


IBITIO, CR1) 


(SET ROMO 


1693 


0161 44 


010061 


000004 






MOV 


R0,4CR1) 


J WRITE ADDRESS TO SEL4 


1 694 


016150 


010261 


0O0006 






MOV 


R2,6(R1) 


I LOAD SEL6 WITH WRITE DATA 


1695 


016154 


052711 


020000 






BIS 


IBIT13,(P1) 


( WRITE SEL6 INTO CRAM 


1696 


01 6160 


016104 


000004 






MOV 


4(R1),R4 


;READ CRAM INTO "FOUND" 


1687 


016164 


020204 








CMP 


R2,R4 


(IS DATA CORRECT? 


1688 


01 6166 


001401 








BEQ 


4$ 


I BR IF OK 


1699 


016170 


104001 








HLT 


J 


( ERROR 


1690 


01 61 72 


1O4401 






451 


SC0P1 






1691 


016174 


000241 








CLC 




;CLEAR CARRY 


1692 


016176 


006102 








ROL 


R2 


1 SHIFT WRITE DATA 


119 3 


016200 


001 357 








BNE 


2S 


( BR IF NOT DONE THIS ADDRESS 



DZDMH "ACY1 1 77( 1 006) 14-DEC-76 1 6 1 32 PAGE 36 

D7 r >"H,P11 09-DFC-76 14s59 CRAM WRITE/READ TESTS 



PAGE ; 0181 



194 
695 
f 91 
6=7 
698 
699 
70" 
7 '11 
702 
70 * 
704 



735 
7 36 
737 
739 

739 
740 
7 1 1 
7 4? 
743 
741 
7 41 
7 41 
747 
7 49 



116202 
016204 
016210 
011212 



005200 
022700 
001 351 
104400 



INC 
CMP 
BNE 
SCOPE 



PO 

#2000, RO 
IS 



(BUMP TO NEXT CRAM ADDRESS 

I DONE YET? 

I BR IF NO 

J SCOPE THIS TEST 



;»»♦**»*##»#•♦#♦****»«*##*»# TEST 3 »»»#*»•*»#••»»»«•»»»*•»♦**«» 

|*IOP CRAM WRITE/READ TEST 

j »FL0AT A THROUGH EACH CRAM LOCATION 

) ! *•***♦*«»••###»»*#»♦**»*#***»**»#♦**»♦****«*»»*»»#*♦»»»*•**** 



701 










j TEST 


3 




706 
















1707 


016714 


01 2737 


000003 001226 


TST3 1 


MOV 


#3,TSTN0 




7 0S 


1622? 


012737 


016336 001216 




MOV 


* 7S74, N'EXT 




1709 


016230 


012737 


016260 001220 




MOV 


#3$, LOCK 




1710 














;R1 CONTAINS BASE DMCll ADDRESS 


71 1 


16236 


104412 






MSTCLR 




I MASTER CLEAR DMCll 


712 


1 6240 


032737 


100000 001366 




BIT 


#BIT15,STAT1 


(DOES DMC HAVE CRAM? 


1713 


16246 


001432 






BEQ 


5S 


jSKIP TEST IF NO CRAM 


714 


016250 


005000 






CLR 


RO 


|R0 « CRAM ADDRESS 


7)5 


016252 


012702 


000001 


1S| 


MOV 


#1,R2 


|R2 * WRITE DATA 


1716 


016256 






2S t 








1717 


16256 


05 102 






COM 


R2 


j MAKE IT A FLOATING ZERO 


1718 


1 6260 


01 2711 


002000 


3St 


MOV 


#BIT10,(R1) 


jSET ROMO 


1719 


01 6264 


O10O61 


000004 




MOV 


R0,4(R1) 


(WRITE ADDRESS TO SEL4 


720 


016270 


01 0261 


000006 




MOV 


R2,6(R1) 


(LOAD SEL6 WITH WRITE DATA 


1721 


016274 


052711 


020000 




BTS 


#BIT13, (Rl) 


(WRITE SEL6 INTO CRAM 


722 


016300 


016104 


000004 




MOV 


4(R1),R4 


( READ CRAM INTO "FOUND" 


723 


01 6304 


020204 






CMP 


R2,R4 


»IS DATA CORRECT? 


1724 


01 6306 


001401 






BEQ 


41 


J BR IF OK 


1725 


016310 


104001 






HLT 


1 


j ERROR 


1726 


016312 


104401 




431 


SC0P1 






727 


16 314 


005102 






COM 


R2 


j BACK TO FLOATING ONE 


1728 


016316 


000241 






CLC 




J CLEAR CARRY 


1729 


016320 


006102 






ROL 


R2 


(SHIFT WRITE DATA 


730 


016322 


001355 






BNE 


28 


>8R IF NOT DONE THIS ADDRESS 


1731 


01 6324 


005200 






INC 


RO 


SBUMP TO NEXT CRAM ADDRESS 


1 732 


01 6326 


022700 


002000 




CMP 


#2000 , RO 


(DONE YET? 


1733 


016332 


001 347 






BNE 


IS 


(BR IF NO 


1714 


016334 


104400 




SSI 


SCOPE 




(SCOPE THIS TEST 



(»»••»#»»»«»#»»#*»#•##*»#*«* TEST 4 »*»»»•♦*•»»*♦»•*»*»#♦•»»♦»♦ 

(»IOP CRAM DUAL ADDRESSING TEST 

(♦WRITE EACH ADDRESS INTO ITSELF, READ EACW 

! » ADDRESS TO VERIFY CORRECT ADDRESSING 

( | •»#*******••**•»»•**••***»»**»*#*«•»*•*»**»••**•«*****»»****• 

t TEST 4 



016 3 3 6 

16 3 4 4 

01 f. 352 



1 27 37 
f" 7737 
01 ?737 



OO0004 001226 
01H16 001 21 6 
016374 O01220 



MOV 

wriv 



#4, TSTNO 

•TST5.NEXT 

»1S,L0C 



(PI CONTAINS BASE D»Cll ADDRESS 
!'-RSTFP CLE'.R D"C1 1 
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PAGE! 0182 



17 5 


016362 


0327 37 


100000 


1 75 1 


nit it? 






1 752 








" 3* * 


01 6374 


ft 1 ft- ft ft ^ 




175 4 




012711 


_ 

002000 


1 755 


016 40 2 


1 006 1 


00 0004 


1 7 5ft 


016 406 


1 00 6 1 ■ 


rtftflftftfi 
Ut'UUUO 


1757 






/lift ft ft ft 
l 1 / \J V U VJ 


175? 


ni it 


00506 1 


000006 


1 759 






UvUl'UB 


« 


01 6426 


20004 




1 . 6 \ 




001 40. 




1 762 


016432 


1 04001 




176 3 


016434 


104401 




1 Z?^ 








1765 


1 6440 


°^?Z2? 


002000 


1766 


16444 


00135 3 




1767 


1 6446 


005000 




1 768 


1,6450 


0127 37 


016456 


1769 


1 6456 


1 0002 




*!3? 


016460 


012711 


002Q00- 


17 7 1 




1 006 1 


0000 4 


17 72 






t\ftftftft& 


1771 


r Z? 


020004 




177 4 


016476 


00 1 401 




17 75 


016500 


1 4002 




17 76 


016502 


1 04401 




17 7 7 


1 6504 


005200 




1778 


1 6506 


P227O0 


002000 


1779 


1 65 1 2 


001 36 1 




1 7HO 


oi 65 i 4 


i n 4 4 




1761 








1797 








J 7R ' 








1 id! 
























... 








1 1DQ 
















1 790 






















000005 


LJ 


1 


n! 97 37 


016636 




537 




1 6566 


1795 








1 7 9f» 


1 65 40 


10 4412 




1 797 


016542 


032737 


100000 


1 79R 


016550 


001431 




179S 


016552 


005011 




1 POO 


016554 


004737 


035602 


1P01 


01 6560 


01 270^ 


0U766 


1802 


016564 


005002 




1 ROl 


016566 


010761 


000004 


1804 


016572 


012711 


002000 


1 SO* 


01 6576 


011005 





BIT 

BEG 

CLR 

MOV 

MOV 

MOV 

MOV 

BIS 

CLP 

MOV 

CMP 

BEQ 

HLT 

SC0P1 

INC 

CMP 

6NE 

CLR 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

HLT 

SC0P1 

INC 

CMP 

BNE 



#BIT15,STAT1 

5» 

RO 

R0.R2. . 

IBIT1!5,(P.1> 

P0,4CRi) 

R0.6CR1) 

#BITi3 f ifil 5 

6CR1) 

6{R1),R4 

R0.P4 

21 

1 

RO 

#2000, RO 
It 

RO 

» 35, LOCK 
R0,R2 

#BIT10,(P1) 

R0«4(P1) 

6CP1),P4 

P0,R4 

41 

2 

RO 

t 2000, RO 
3* 



[ DOES DMC HAVE CRAM? 
(SKIP TEST IF NO CRAM 
■ RO bCRAM ADDRESS 
(SAVE R2 FOR TYPEOUT 
[SET ROMO 

I WRITE ADDRESS TO SEL4 
(LOAD SEL6 WITH WRITE DATA 
S WRITE CRAM 
{CLEAR SEL 6 

[ SHOULD READ BACK OWN ADDRESS 

j IS DATA CORRECT? 

I BR IF YES 

(DATA ERROR 

I LOOP TO IS IF SW09»1 

I BUMP TO NEXT ADDRESS 

j DONE WRITING YET? 

[ BR IF NO 

( RESTART AT ADDRESS 
J NEW SC0P1 

(SAVE R2 FOR TYPEOUT 
I SET ROMO 

I SEL4 * CRAM ADDRESS 
| READ CRAM INTO "FOUND" 
J IS DATA CORRECT? 
[BR IF YES 

(DUAL ADDRESSING ERROR 
J LOOP TO 3S IF SW09»1 
I BUMP TO NEXT ADDRESS 
[ DONE WRITING YET? 
J BR IF NO 
(SCOPE THIS TEST 



[•••••••••••••«••••«•••••••• TEST 5 •»»••»••»»»«*♦»••♦»»*»#••»» 

(•IOP CRAM READ TEST 

(•THIS TEST WRITES THE CRAM WITH THE CROM MICRO-CODE MAP 
(•THEN READS IT BACK AND COMPARES EACH ADDRESS WITH THE 
(•DUPLICATE OF THE CROM MICRO-CODE, 

} | »•»•»••#»»•»««»•»••»»#»••»»»»*#**»•••»•*»»»«•»»•»#••»»»••»»•• 

! TEST 5 



MOV 
MOV 
MOV 

MSTCLR 

BIT 

BEQ 

CLR 

JSR 

MOV 

CLR 

MOV 

MOV 

MOV 



#5»TSTN0 

#TS?6,NEXT 

tU.LOCK 



tBIT15,STATl 
3* 

(Rl) 
PC.WROM 

»ROKSSP,RS . 
RS 

R2,4(R1) 
•BIT10, (Rl) 
(R0),R5 



(Rl CONTAINS BASE DMC 11 ADDRESS 
(MASTER CLEAR DMC 1 1 
(IS IT RAM OR ROM 
I SKIP TEST IF CROM 
(CLEAR RUN 

(WRITE CRAM WITH MAP 

(SOFTWARE POINTER TO CROM DUPLICATE 

(R2 * CROM ADDRESS 

(WRITE CROM ADDRESS TO SEL4 

(SET CROMO 

(PUT "EXPECTED" IN R5 



DZDMM 


MAC Yl 1 


27f 1006) 


14-DEC 


DZ0MW.P11 09 


-DFC-76 


14[59 


1816 


016600 


016104 


0O0006 


1 907 


016604 


020504 




IPOS 


01 6606 


001401 




1 S0° 


016610 


104003 




1810 


016612 


00501 1 




10)1 


016614 


005061 


000006 


1812 


016S20 


104401 




10 13 


016622 


005202 




1114 


016624 


005720 




1815 


01 6626 


022702 


002000 


191* 


016632 


001355 




1 f> 1 7 


016634 


104400 




181 a 








1R1° 








1 s?o 








1031 








1 87? 








lfi?3 








1824 








1875 








1 R?<> 








1877 


016636 


0127 37 


000006 


1878 


016644 


012737 


017024 


182<3 


016652 


0127 37 


016702 


1830 








1831 


016660 


104412 




1«37 


016662 


032737 


100000 


i»n 


016670 


001454 




1834 


016672 


005037 


034704 


1835 


016676 


01270O 


000001 


181* 


016702 


042737 


000377 


1837 


0167 10 


042737 


000003 


imp 


016716 


153737 


034704 


1839 


016724 


153737 


034705 


184(1 


0167 32 


104414 




1841 


016734 


010000 




1*47 


0167 J6 


H?*«l» 




1843 


016740 


004000 




1844 


016742 


01 0O61 


000004 


1845 


016746 


104414 




1 P4fi 


016750 


122500 




1847 


016752 


104414 




184P 


016754 


040620 




1849 


016756 


104414 




1851 


016760 


061 725 




1851 


016762 


010005 




1852 


016764 


1 16104 


000005 


IB" 3 


016770 


] 20*04 




ia«;4 


016772 


0014(11 




1855 


016774 


104010 




1856 


016776 


104101 




1857 


onnoo 


000241 




185" 


01 7002 


106'00 




1859 


0)7004 


001 336 




1B6r. 


017.106 


0052*7 


o } 4 7 < 


186! 


017 17 


<»?3737 





16132 PAGE 38 

CRAM WRITE/READ TESTS 

MOV 6(R1),R4 

CMP R5,P4 

BEQ 2S 

HLT 3 

2$: CLR (Rl) 

CLR 6CR1) 
SCOPJ 

INC R2 

TST (P0)+ 

CMp #2000, R2 

BNE 1$ 
3st SCOPE 



PAGE: 0183 



(PUT "FOUND" IN R4 

I COMPARE HARD ROM TO SOFT DUPLICATE 

(BR IF OK 

[CRAM READ ERROR! 

(CLR BIT10 

(CLEAR SEL6 

(LOOP TO JS IF SW09=1 

(INC TO NEXT CROM ADDRESS 

(POP RO BY 2 

(DONE IK YET? 

|BR IF NO 

(SCOPE THIS TEST 



001226 
001216 
001220 



016734 
016740 
016734 
016740 



TSTS t 



1$; 

65«[ 



[ •••••••••••••••••••«••»•*•• TEST 6 »*»•#«»*»••»»•*»»#***•*•»*« 

(•IOP MAIN MEMORY TEST 



[•FLOAT 


A 1 THROUGH ALL 


MAIN MEMORY LOCATIONS 


[ | ••••••*•••••••••••••••••••••••••••••••••••••• •••••••••••••••• 


[ TEST 


6 




MOV 


#6,TSTN0 




MOV 


#TST7,NEXT 




MOV 


#65$, LOCK 








1 Rl CONTAINS BASE DMC11 ADDRESS 


MSTCLR 




[MASTER CLEAR DMC 11 


BIT 


#BIT15,5TAT1 


(IS THIS AN IOP? 


BEQ 


2S 


[SKIP TEST IF NO 


CLR 


FLAG 


} START WITH ADDRESS 


MOV 


#1,R0 


[START WITH BIT 


BIC 


#377,66* 


[CLEAR ADDRESS FIELD OF INSTRUCTION 


BIC 


»3,68S 


1 CLEAR ADDRESS FIELD OF INSTRUCTION 


BISB 


FLAG,66» 


[ ADD ADDRESS TO INSTRUCTION 


BISB 


FLAG+1,688 


1 ADD ADDRESS TO INSTRUCTION 


POMCLK 




t NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


010000 




[LOAD MAR LD WITH ADDRESS IN FLAG 








004000 




[LOAD MAR HI 


MOV 


R0,4(R1) 


1 WRITE PATTERN IN P0RT4 


ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


122500 




[MOVE P0RT4 TO MEMORY 


ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


040620 




) MOVE MEMORY TO BR 


POMCLK 




[NEXT WORD IS INSTRUCTION, ROMCLK PCm5J04 


61275 




; mqve bp to ports 


MOV 


P0.P5 


[PUT "EXPECTED" IN R5 


MOVB 


5(Rl),P4 


! PUT "FOUND" IN R4 


CMPP 


R5,P4 


[DATA CORRECT? 


BEQ 


67$ 


|RP IF YES 


HLT 


10 


[DATA KRROR 


SCOP 1 




[SW09=1 ? 


C1,C 




;CLFAR CARRY 


pore 


RO 


•SHIFT BIT IN PO 


RTjF. 


65S 


[DOUR IF P0=0 


1 NC 


FLAG 


[■«FXT A^DWESS 


C M P 


*2Q00,F!,iC 


[LAST A1DBESS? 



DZDMH 


MACY11 


27 f 1006) 


1 4-0EC 


-76 16132 PACE 39 






PAGE 1 


DZDMH, Pll 09 


-DEC-76 


14:59 


IOP TEST 








1862 


01 7020 


001 326 






BNE 


IS 


(BR IF NO 


1 8 6 4 


017 22 


] 04400 




2St 


SCOPE 




(SCOPE THIS TEST 


1865 
















1866 










[••••••••••••»»»•••••••••••• TEST 7 »»•»»»•«••»»*•••»•••••••••• 


1(167 










(•IOP MAIN MEMORY TEST 




1 868 










(•FLOAT 


A THROUGH ALL 


MAIN MEMORY LOCATIONS 


1869 










I (#«»*#»####»#####«#♦##•»»»•»••»»»•*•»•»»••••«»»»»•»•*»•»••»»»» 


















1871* 










[ TEST 


7 




1 87 2 
















187 3 


, 7n , 4 


012737 


000007 


001226 TST7I 


MOV 


#7»?STN0 






i 7 3 7 


012737 


017216 


00121S 


MOV 


•TST10.NEXT 




1 B7* 


01 7 40 


012737 


017072 


001220 


MOV 


1656 i LOCK 


















(Rl CONTAINS BASE DMCU ADDRESS 


1*77 




104412 






MSTCLR 




(MASTER CLEAR DMC11 


1 8 7 R 


oi 7o5o 


032737 


100000 


001366 


BIT 


IBIT1S.STAT1 


(IS THIS AN IOP? 


18 79 


O17056 


001456 






BEG 


2$ 


(SKIP TEST IF NO 




017060 


005037 


034704 




CLR 


FLAG 


(START WITH ADDRESS 


1881 




012700 


000001 


1SI 


MOV 


tl»RO 


(START WITH BIT 


188? 


01 7070 


005100 




64$: 


COM 


RO 


(CHANGE TO FLOATING 


18 8 3 


017072 


042737 


000377 


017124 65t| 


BIC 


1377,66* 


(CLEAR ADDRESS FIELD OF INSTRUCTION 


18 8^ 




042737 


000003 


017130 


BIC 


I3r68» 


(CLEAR ADDRESS FIELD OF INSTRUCTION 


1885 


017 1 06 


153737 


034704 


017124 


BISB 


FLAG, 668 


(ADD ADDRESS TO INSTRUCTION 


188 6 


0171 14 


153737 


034705 


017130 


BISB 


FLAG+1,681 


(ADD ADDRESS TO INSTRUCTION 


1887 


017 122 


104414 






ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


1 8 8 w 


017124 


010000 




664 J 


010000 




(LOAD MAR LO WITH ADDRESS IN FLAG 


1889 


017126 


1 0441 4 






ROMCLK 




| NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 




017130 


0040O0 




68»t 


004000 




(LOAD MAR HI 


1891 


017132 


010061 


000004 




MOV 


R0t4(Rl) 


(WRITE PATTERN IN P0RT4 






1 04414 






ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


1891 


017140 


122500 






122500 




(MOVE P0RT4 TO MEMORY 


189 4 


017142 


104414 






ROMCLK 




; NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 






040620 






040620 




(MOVE MEMORY TO BR 


189ft 


01 71 46 


10441 4 






ROMCLK 




( NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


1897 


017150 


061225 






61223 




(MOVE BR TO P0RT5 






010O05 






MOV 


R0*R5 


(PUT "EXPECTED" IN R5 


1 899 


01715 4 


1 16104 


000005 




MOVB 


5CRD.R4 


{ PUT "FOUND" IN R4 






120504 






CMPB 


R5.P4 


j DATA CORRECT? 


1901 


01716? 


0O14O1 






BEQ 


67« 


(BR IF YES 




m 7 1 64 


104010 






HLT 


to 


(DATA ERROR 


1903 


ni 71 66 


104401 




*7«l 


SC0P1 




(SW09«1? 


1 90 A 


017170 


0051 00 






COM 


RO 


(CHANGE TO FLOATING 1 


1905 


o 1 7 1 7 2 


000241 






CLC 




(CLEAR CAPRY 


1 906 


01717 4 


1 06100 






ROLB 


RO 


(SHIFT BIT IN RO 


1 907 


017176 


0O1334 






BNE 


64» 


(DONE IF R0=0 


1900 




005237 


034704 




INC 


FLAG 


(NEXT ADDRESS 


1 909 


017 20-1 


022737 


002000 


034704 


CMP 


12000, FLAG 


( LAST ADDRESS? 


1910 


017 212 


001324 






BNE 


It 


I BR IF NO 


191 1 


017214 


104400 




231 


SCOPE 




( SCOPE THIS TEST 


1912 
















1913 
















1914 










(••*••••••••••••••••••••*••• TEST 10 »•♦«»»»»»••»•»••*•»•••••••« 


191S 










(•IOP MAIN MEMORY DUAL 


ADDRESSING TEST 


191* 










(•LOAD 


EACH MEMORY LOCATION WITH ITS OWN ADDRESS 


1917 










(•READ 


BACK EACH LOCATION TO VERIFY CORRECT ADDRESSING 



DZDMH MACYU 77C1O06) 14-DEC-76 16(32 PAGE 40 



PAGE I 0185 



DZDMH, F1 1 


09 


-DEC-76 


14159 




IOP TEST 








191 o 














| | •»•»••»•#••*»••••» #•••••••»»•••••••»•••••••••••»••• •••••••••*• 


1919 




















1920 














1 TEST 


10 




1921 




















1927 





7216 


012737 


000010 


001226 


TSTlOl 


MOV 


M0.T5TNO 




1923 





7274 


012737 


017516 


001216 




MOV 


ITSTII.NEXT 




1974 


n 


723? 


012737 


017256 


001220 




MOV 


lit, LOCK 




1925 


















(Rl CONTAINS RASE DMC11 ADDRESS 


1926 





7240 


104412 








MSTCLR 




(MASTER CLEAR DMCU 


1977 





7242 


037737 


100000 


001366 




BIT 


I8IT15.STAT1 


(IS THIS AN IOP? 


192" 





7250 


001521 








BEQ 


9» 


(SKIP TEST IF NO 


1929 





7252 


005037 


O34704 






CLR 


FLAG 


J START AT ADDRESS 


1930 





7256 


01 3702 


034704 




ISl 


MOV 


FLACR2 


(PUT DATA IN R2 


i 3 s : 




7262 


042717 


CCC277 


C173H 




BIC 




jCLEAo ADDRESS FIELD OF INSTRUCTION 


193? 





7270 


042737 


000003 


017320 




BIC 


• 3,7t 


(CLEAR ADDRESS FIELD OF INSTRUCTION 


1933 





7276 


153737 


034704 


017314 




BISB 


FLAG, 2* 


(ADD ADDRESS TO INSTRUCTION 


1934 





7304 


153717 


034705 


017320 




BISB 


FLAG+1,73 


(ADD ADDRESS TO INSTRUCTION 


1935 





7312 


10441 4 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


1936 





7314 


01 0000 






211 


OIOOOO 




(LOAD MAR LO 


1937 





7316 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC»5J04 


1938 





7320 


004000 






7»l 


004000 




(LOAD MAR HI 


1919 





732? 


010261 


000004 






MOV 


P2,4(R1) 




1940 





7326 


10441 4 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


1941 





7330 


122600 








122S00 




(MOVE P0RT4 TO MEMORY 


1942 





7337 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 


1943 





7 334 


040620 








040620 




| MOVE MEMORY TO THE BR 


1944 





7336 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PO5304 


1945 





7340 


061225 








61225 




(MOV BR TO P0RT5 


1946 





7342 


01 0205 








MOV 


R2,R5 


(PUT "EXPECTED" IN R5 


1947 





7344 


1 16104 


000005 






MOVB 


5<R1),P4 


(PUT "FOUND" IN R4 


194H 


n 


7350 


120504 








CMPB 


R5,R4 


(DATA CORRECT? 


1949 





735? 


OO1401 








BEQ 


3« 


(BR IF YES 


1950 





7354 


1 040] 








HLT 


10 


(DATA ERROR 


1951 





7356 


104401 






38 t 


SC0P1 




(SW09al? 


1952 





7360 


005237 


O34704 






INC 


FLAG 


[NEXT ADDRESS 


1953 





7364 


022737 


002000 


034704 




CMP 


(2000, FLAG 


(LAST ADDRESS 


1954 





7372 


0O1331 








BNE 


18 


(BR IF NO 


195*. 





7374 


012737 


017406 


001 220 




MOV 


•41, LOCK 


(NEW SCOPE 1 


1956 





7402 


005037 


034704 






CLR 


FLAG 


(RESTART AT ADDPESS 


1957 





7406 


013702 


034704 




48t 


MOV 


FLAG.R2 


(PUT DATA IN R2 


1958 





7412 


042737 


000377 


017444 




BIC 


#377,38 


(CLEAR ADDPESS FIELD OF INSTRUCTION 


1959 





7470 


042737 


000003 


017450 




BIC 


#3,83 


(CLEAR ADDRESS FIELD OF INSTRUCTION 


I960 





7476 


153737 


O34704 


017444 




BISB 


FLAG, 5( 


I ADD ADDRESS TO INSTRUCTION 


1961 





7434 


153737 


034705 


017450 




BISB 


FLAG+ 1,8$ 


(ADD ADDRESS TO INSTRUCTION 


1962 





744? 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


196 3 





744* 


oioooo 






531 


010000 




(LOAD THE MAR LO 


1964 





7446 


1 n 4 4 1 4 








ROMCLK 




I NEXT WOPD IS INSTRUCTION, ROMCLK PC»5304 


196b 





74Sn 


410') 






8S 1 


004000 




1 LOAD MAP HI 


196* 


(1 


745? 


10441 i 








POMCLK 




I NEXT WOPD TS INSTRUCTION, ROMCLK PC«5304 


1967 





745 1 


14 6 2 








040620 




l"OVE MEMORY TO THE BP 


196S 





7456 


1 4 4 1 4 








ROMCLK 




(NEXT WOpn IS INSTRUCTION, ROMCLK PC»5304 


196" 





7460 


161726 








61275 




!«0V 8P TO P0PT5 


1970 





7467 


01 021S 








vnv 


R2. P5 


(PUT "EXPECTED" IN R5 


197 1 





7 46 4 


116 10 4 


n r - 5 






MPVft 


5(P11 ,P4 


JPL'T "Fnu'lD" IN P4 


197? 


1 


7 4 7 


1 ?OSr 5 








C '■' P a 


P5,B4 


[DATA COPPECT? 


197; 




7 17? 


o r. 1 r, n 1 










6S 


1 MP If YES 
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1974 


017474 


104010 


1975 


017476 


104401 


197ft 


01 7500 


005237 


"977 


017504 


022737 


1978 


017512 


001335 


1979 


017514 


104400 


1980 






198 1 






1982 






1983 






1984 






1S85 






1986 






1987 






198" 






198° 






1991 


017516 


012737 


1991 


017524 


012737 


199? 






1991 


017532 


104412 


1994 


017514 


032737 


1995 


017542 


001432 


1996 


017544 


005002 


1907 


017546 


104414 


1998 


017550 


O10000 


1999 


017552 


010261 


2000 


017556 


1044) 4 


2001 


017560 


136500 


200? 


017562 


005202 


30m 


017564 


02270? 


2004 


017570 


001 370 


2005 


017572 


005002 


2006 


017574 


104414 


2007 


017576 


010000 


200* 


017600 




2009 


017600 


10441 4 


2010 


017602 


055224 


201 1 


017604 


01 0205 


2"1 2 


017606 


016104 


201 3 


017612 


1 20504 


2014 


017614 


001401 


2015 


017 616 


1 0401 1 


201ft 


017620 


005202 


2017 


017622 


022702 


2018 


01 7626 


001 364 


2019 


0176 3 


1 04400 


20?0 






2021 






20?? 






20?? 






2074 






20?S 






2036 






2027 






207S 






?0?o 







034704 

002000 034704 



1P0000 001366 



3S! 
4S t 



HIjT 

SC0P1 

INC 

CMP 

SHE 

SCOPE 



FLAG 

4 " " 



(ADDRESSING ERROR 

;SW09=1? 

( NEXT ADDRESS 

;IS IT THE LAST 

j BR IF NO 

f SCOPE THIS TEST 



)*******»***•«**«*•*»****••• TEST 11 ••••»••••••*«*•••**••••*•** 

j»IOP MAR TEST 

{•PERFORM DUAL ADDRESSING TEST 
fA'JglSQ MAR AD70=>INC FEATURE 

1 1 »»«»»»»«»»**#»♦»»»»»»•»###»*»*♦»•*♦»*»»**»»»»«***••»»*♦•»«»»•» 

( TEST 11 



MOV 
MOV 

HSTCLR 

BIT 

BEG 

CLR 

ROMCLK 

010000 

MOV 

ROMCLK 

136500 

INC 

C"P 

BSE 

CLP 

ROMCLK 

010000 

ROMCLK 

055224 

MOV 

MOV 

CMPB 

BEQ 

INC 
CMP 
BNE 
SCOPE 



111, TSTNO 
♦TST12»NEXT 



#BIT15,STAT1 

4* 

R2 



R2 

12000, R2 

IS 

R2 



R2,RS 
4CR1),R4 
P5,R4 
3t 

R2 

12000, R2 
2« 



Rl CONTAINS BASE DMCU ADDRESS 
MASTER CLEAR DMCU 
IS THIS Ah IOP? 
SKIP TEST IF NO 
START WITH A ZERO 

NEXT WORD IS INSTRUCTION, ROHCLK PCs5304 
LOAD MAR WITH A ZERO 
WRITE DATA TO P0PT4 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
MEM_P0PT4, AUTO-INC MAR 
INCREMENT DATA 
DONE YET? 
BR IF NO 

RESTART WITH A ZERO 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
LOAD MAR WITH A ZERO 



NEXT WORD IS INSTRUCTION, 

MOVE MEM TO P0RT4 

PUT "EXPECTED" IN P5 

PUT "FOUND" IN R4 

DATA CORRECT? 

BR IF YES 

MAR ERROR 

NEXT ADDRESS 

DONE YET? 

BR IF NO 

SCOPE THIS TEST 



ROMCLK PC=5304 



)#•••*»•••*•••**••»****••••« test 12 »»♦»*«**»****»*♦***»♦*»**** 

l«iop (cram) odt bits test 

)*load mar with a inc mar until it overflows c2000 times) 
)»verify that ibus» 10 bits is set only when mar bit 8 isa one 
i *and that ibus» 10 bit6 is set on mar overflow(2000) 

1 1 #»»*»*»#»*•»»»»*«*♦**»*«*»**»***»«*******«»*##*»»**********#*» 

I TEST 12 



DZDMM 


MfCYl 1 


27C1O06) 


14-DEC 


DZDMH.PU 09 


-DF.C-76 


14159 


2030 








30 M 


017632 


012737 


000012 


20? 2 


01 7640 


01 2737 


020040 


3033 


017646 


01 2737 


017674 


2034 








20 35 


017654 


104412 




3016 


017656 


032737 


100000 


2037 


017664 


001464 




?oia 


017666 


005002 




303° 


017670 


104414 




2040 


017672 


010000 




704 1 


017674 






30 42 


017674 


1 0441 4 




3043 


017676 


121204 




3044 


01 7700 


005005 




?045 


017702 


032702 


000400 


2046 


017706 


001 402 




2047 


017710 


012705 


000040 


2048 


017714 


016104 


000004 


2049 


017720 


O42704 


177637 


2050 


017724 


020504 




3051 


017726 


001401 




305? 


01 7730 


1 04O07 




2053 


017732 


104401 




7054 


017734 


104414 




3055 


017736 


014000 




2056 


017740 


005202 




2057 


017742 


022702 


002000 


2058 


01 7746 


001 352 




2059 


17750 


005037 


001220 


?060 


017754 


1 04414 




3061 


01 7756 


121204 




?062 


017760 


012705 


000100 


3063 


01 7764 


016104 


000004 


2064 


017770 


042704 


177637 


2065 


017774 


020504 




3066 


017776 


001401 




3067 


020000 


1 04007 




3068 


i)7O002 


104414 




2069 


070004 


010000 




2070 


070006 


104414 




7071 


070010 


0O4000 




2073 


020012 


104414 




3073 


O2001 4 


121204 




3074 


070016 


005005 




3'17S 


O70020 


016104 


OO0004 


3076 


020024 


017704 


1 77637 


2077 


070030 


070504 




3078 


020032 


O.U401 




?"79 


o?0034 


1 04 007 




?0»0 


o?0036 


1 04400 




7081 








20 8 2 








?(>8 3 








7084 








7" 85 
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001216 
001220 



MOV 


#12, TSTNO 






MOV 


#TST13,NEXT 






MOV 


•IS, LOCK 










jRl CONTAINS BASE DMC11 ADDRESS 


MSTCLR 




J MASTER CLEAR DMCU 




BIT 


#BIT15,STAT1 


J IS THIS AN IOP? 




BEQ 


28 


jSKIP TEST IF NO 




CLR 


R2 


jR2eSAME AS MAP CONTENTS 




ROMCLK 




; NEXT WORD IS INSTRUCTION, 


ROMCLK 


010000 




JMAR.O 




ROMCLK 




( NEXT WORD IS INSTRUCTION, 


ROMCLK 


121204 




;P0RT4=TBUS* 10 




CLP 


P5 


»R5»"EXPECTED" 




BIT 


«BITS,R2 


(IS BITS SET IN MAR? 




BEQ 


.+6 


j BP IF NO 




MOV 


#BIT5,R5 


;IF YES THEN SET BIT5 




MOV 


4(R1),R4 


•R4*"F0UND" 




BIC 


#177637, R4 


(CLEAR UNWANTED BITS 




C»P 


R5»R4 


(SITS S&6 SHOULD BE CLEAR 




BEQ 


.+4 


(8R IF OK 




HLT 


7 


jERROR BITS 5&6 NOT CLEAR 




SC0P1 




jLOOP TO US IF 5*09=1 




ROMCLK 




j NEXT WORD IS INSTRUCTION, 


ROMCLK 


014000 




j INC MAR 




INC 


R2 


(BUMP MEM ADDRESS 




CMP 


#2000, P2 


j OVERFLOWED YET? 




BNE 


1$ 


( BR IF NO 




CLR 


LOCK 


(NO MORE SC0P1 




ROMCLK 




j NEXT WOPD IS INSTRUCTION, 


ROMCLK 


121204 




;PART4_IBUS* 10 




MOV 


«BIT6,R5 


jR5="EXPECTED" 




MOV 


4(R1),R4 


(R4="F0UND" 




BIC 


#177637, R4 


j CLEAR UNWANTED BITS 




CMP 


RS.R4 


( BIT6 SHOULD BE SET 




BEQ 


.+4 


( BR IF OK 




HLT 


7 


(ERPOR, BIT6 NOT 5ET 




ROMCLK 




1 NEXT WORD IS INSTRUCTION, 


ROMCLK 


010000 




;MAR_0 




ROMCLK 




j NEXT WORD IS INSTRUCTION, 


ROMCLK 


004000 




( MAP HI_0 




ROMCLK 




( NEXT WORD IS INSTRUCTION, 


ROMCLK 


121204 




;P0RT4_IBUS* 10 




CLR 


R5 


;R5="EXPECTED" 




MOV 


4CR13,R4 


1 R4e"F0"ND" 




BJC 


#177637, R4 


(CLEAR UNWANTED BITS 




CMP 


R5,R4 


JRITS 5£6 SHOULD BE CLEAR 




BEQ 


. + 4 


(BP IF OK 




HLT 


7 


;ERPO" 5f,6 'JOT BOTH CLEAR 




SCOPE 




; SCOPE THIS TEST 





;»CPOM READ TEST 

i,THts TfsT spins f sr»i wn 



TFST 1 3 »»»*«»«*♦»*•»»#*»••*»**#*»«• 



mfSTins awn rrmpaeFR 
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20B6 








2007 








20S9 








2099 








2090 








2031 








2092 


020040 


012737 


000013 


2093 


020046 


012737 


020230 


2094 


020054 


012737 


020106 


2095 








2096 


020062 


104412 




2097 


020064 


032737 


100000 


209S 


020072 


001055 




2099 


020074 


00501 1 




2100 


020076 


012700 


011766 


2101 


020102 


005002 




2102 


020104 


005003 




2103 


020106 


042737 


014377 


2104 


0201 14 


050237 


020126 


2! 05 


O20120 


050137 


020126 


21 06 


0201 24 


104414 




?107 


020126 


100400 




21 OP 


020130 


012711 


0020O0 


2109 


020134 


011005 




211 


020136 


016104 


000006 


21 1 1 


O20142 


020504 




2112 


020144 


001414 




21 n 


0201 46 


010337 


001252 


21 14 


020152 


000241 




21 1 5 


020154 


006037 


001252 


2116 


020160 


006037 


001252 


2117 


020164 


006037 


001252 


21 1 S 


020170 


050237 


001252 


21 1 9 


02017 4 


J04004 




2120 


020176 


1 04401 




2121 


020200 


005720 




2122 


020202 


005202 




2123 


O20204 


022702 


000400 


2124 


O20210 


001336 




21 25 


020212 


O05O02 




21 26 


020214 


062703 


004000 


21 27 


O20220 


022703 


020000 


212P 


020224 


OOJ330 




212° 


020226 


104400 




2130 








2131 








21 32 








2113 








2134 








21 35 








2 1 36 








2m 








2ns 








21 39 








2t 10 








21 a i 


020230 


012737 


000014 



(♦IT TO A SOFTWARE DUPLICATE OF THE CROM, THIS TEST 

|*ALSO TESTS THE JUMP(I) MICRO-PROCESSOR INSTRUCTION, 

((•»••»•••###««♦•«.««•*»•»••»•»»»»«*•»»»»»»•••«•«»»»•»•♦*•*•♦»»•• 



001226 
001216 
001220 



261 



I TEST 


13 




MOV 


I13»TSTN0 




MOV 


ITST1 4 t NEXT 




MOV 


ill, LOCK 








(Rl CONTAINS BASE DMC11 ADDRESS 


MSTCLR 




| MASTER CLEAR DMC11 


BIT 


#BIT15,STAT1 


j IS IT RAM OR ROM 


BNE 


4S 


(SKIP TEST IF CRAM 


CLR 


(Pi) 


(CLEAR RUN 


MOV 


tROMMAPi RO 


(RO POINTS TO SOFTWARE ROM MAP 


CLR 


R2 


(R2 CONTAINS ROM ADDRESS BITS 0-7 


CLR 


R3 


(R3 CONTAINS POM ADDRESS BITS 8t9 IN BITS 


BIC 


114377*2$ 


I CLEAR ADDRESS FIELDS OF INSTRUCTION 


BIS 


R2,2$ 


(ADD BITS 0-7 TO INSTRUCTION 


BIS 


R3,2$ 


( ADD BITS 11412 TO INSTRUCTION 


ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


100400 




jJUMP(I) TO ROM ADDRESS IN R2 & R3 


MOV 


tamo,(Ri) 


(SET ROMO 


MOV 


CRO) ,R5 


(PUT "EXPECTED" IN R5 


MOV 


6CRD.R4 


(PUT "FOUND" IN R4 


CMP 


R5.P4 


(COMPARE ROM CONTENTS TO SOFT DUP 


BEQ 


3* 


( BR IF OK 


MOV 


R3.TEMP3 


»PUT ROM ADDRESS IN TEMP3 


CLC 




} FOR ERROR TYPEOUT 


ROR 


TEMP3 




ROR 


TEMPS 




ROR 


TEMP3 




BIS 


P2,TEMP3 


( TEMP3 NOW CONTAINS CORRECT ADDRESS 


HIiT 


4 


> ROM READ ERROR 


SC0P1 




(LOOP TO IS IF SW09»1 


TST 


(R0) + 


(BUMP SOFT POINTER 


INC 


R2 


(BUMP ROM ADDRESS 


CMP 


1400, R2 


(IS R2 TO MAX YET? 


BNE 


IS 


(BR IF NO 


CLP 


R2 


(YES, RESET R2 TO 


ADD 


14000, R3 


(INC TO NEXT PAGE OF ROM 


CHP 


#20000, R3 


(DONE YET? 


BNE 


If 


(BR IF NO 


SCOPE 




(SCOPE THIS TEST 



(»•»•*»•»••»••»»•»»•»•»•»••» TEST 14 »»♦•»»»»»»»••»»•«»*»»»•»•»• 

(•CROM TEST OF JUMPCI) NEVER MICRO-PROCESSOR INSTRUCTION, 
(•PERFORM THE JUMP INSTRUCTION 

(•VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

(•THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE), 

( | ••••••••••••••••••••••••••••**•••»••«••••••••••••••••••••••••• 



( TEST 14 



TST14I MOV 



"SCY11 27(1006) 14-DEC-76 



DZD^H.Pll 09 


-DF.C-76 


14(59 


2142 


020236 


012737 


020420 


7143 


020244 


01 2737 


020264 


21 44 








2145 


020252 


104412 




2H6 


020254 


032737 


100000 


2147 


020262 


001O55 




21 4S 


020264 






21 49 


020264 


004737 


035430 


21*0 


02P270 


104414 




2151 


020272 


100400 




2152 


020274 


104414 




215 3 


070276 


1 1 4377 




2154 


020300 


004737 


035522 


21*5 


020304 


000002 




2156 


020306 


020504 




2157 


020310 


001401 




215S 


020312 


1 04006 




21*9 


O20314 


104101 




2160 


020316 


012737 


020324 


2161 


020324 






2162 


020324 


004737 


035430 


2163 


020330 


104414 




21*4 


020332 


100403 




2! 65 


020334 


104414 




2166 


020336 


100000 




2167 


020340 


004737 


035522 


216R 


020344 


000010 




2169 


020346 


020504 




2170 


020350 


001 401 




2171 


020352 


104006 




2172 


020354 


1O4401 




2173 


020356 


012737 


020364 


2174 


O20364 






2175 


020364 


004737 


035430 


2176 


020370 


104414 




2177 


020372 


100406 




2178 


020374 


104414 




2179 


020376 


1 041 25 




2100 


02O400 


004737 


035522 


21B1 


02O404 


000016 




2 1 P 2 


02O406 


020504 




2 1 P 3 


020410 


001 401 




21 R4 


020412 


104006 




21P5 


020414 


104401 




21 P6 


020416 


1 04 400 




2197 








21 is 








2189 








219 








2 1*1 








71"? 








2191 








21 "4 








21 9S 
















21« J 


5 ."> 4 2 


" 1 2 3 7 
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2»« 
3f : 



4S! 

5S: 



MOV 
MOV 

MSTCLP 

BIT 

BNE 



ITSTIS, NEXT 
I It, LOCK 



IBIT15.STAT1 
6S+2 



JSR PCCLRJ 

ROMCLK 

100400 

ROMCLK 

114377i<400«0> 

JSR 

2 

CMP 
BEQ 
HLT 
SC0P1 
HOV 



PC, POMDAT 

R5,R4 
2f 
6 



JSR PCCLRf 

ROMCLK 

100403 

ROMCLK 

100000t<400»0> 
JSR PC,ROMC 
10 
CMP 
BEQ 
HLT 
SC0P1 
MOV 



(JUMP TO 



R5.R4 

4$ 

6 



JSR PCCLRJ 

ROMCLK 

100406 

ROMCLK 

104125!<400»0> 

JSP 
16 
CMP 
BEQ 
HLT 
SC0P1 
SCOPE 



jPC , ROMDAT 

R5,R4 
6S 



Rl CONTAINS BASE DHCU ADDRESS 
MASTER CLEAR DMCll 
IS IT CRAM? 
SKIP TEST IF YES 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
START AT ROM PC=0 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
JUMP TO ROM PC OF 1777 

R5»EXPECTED ROM DATA, R4= ACTUAL ROM DATA 

ARE NEW PC CONTENTS CORRECT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO 1$ IF SW09»i 
NEW SC0P1 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
START AT ROM PC»3 

NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
ROM PC OF 

RS»EXPECTED ROM DATA, P4=ACTUAL ROM DATA 
INDEX 

APE NEW PC CONTENTS CORRECT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO 3S IF SW09»1 
NEW SCOPJ 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
START AT ROM PC»6 

NEXT WORD IS INSTRUCTION, ROMCLK PC"5304 
JUMP TO ROM PC OF 525 

R5»EXPECTED ROM DATA , R4= ACTUAL ROM DATA 
INDEX 

ARE NEW RO" PC CONTENTS CORRECT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO 5S IF SW59*J 
SCOPE THIS TEST 



j •*»•»•••••**••«•***••**•••* TEST 15 •*•••*•••••••••••••••••*•*• 

(•CROM TEST OF JUMp(I) ALWAYS MICRO-PROCESSOR INSTRUCTION, 
;«PERFORM THE JUMP INSTRUCTION 

;*VFRIFY THE JUMP READING THE CONTENTS OF THE NEW ROM PC 

I ;###*##*•••»•••*#•*♦#»*##*##»#*»*•*#*##**•••»*•**♦•♦###»•♦•♦#♦» 

I TEST 15 

« n v »15.TST*in 
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2 t 


070426 


01 9i \l 










ITST16 , NEXT 




2 1 99 


20434 


012 3 


020454 


001220 




MOV 


#18. LOCK 




2200 
















,d< /timtrtijci a a c P nun 1 AnncFfi^ 


2201 


070442 










MSTCLR 




. u «l e*pp d rr psd nun < 

J WAS 1 tK L us» f* n Unv.ll 


« 


2 4 4 4 




1 00 00 


uu 1 -too 




BIT 


#BIT15,STAT1 




2203 


020452 


001 047 








BNE 


6*+2 


. cvTD TP CT TIT VP Q 
|Onlr iCidi * " ItO 


220 4 


020 454 








1 S 1 




















ROMCLK 




i KEXT WORD IS INSTRUCTION t RQMCLK PCo5 3q& 


2206 


020456 


1 Art a rt rt 

Ivy ** " v 








100400 




• CTBBT AT RDM or«rt 


2207 


020460 


104414 








ROMCLK 




.UPVT unon T C TU (STDtl^TTflM DnMfT.lf D^bR >ft A 
J n£ A i NUKU i-O 1 No I put UUNi rljntuA rl,»3iu% 


22 OP 


020 462 


114777 








1143771<400#1> 


■ thud to DctM of nr » m 














JSP 


PC. ROMDAT 


jR5oEXPECTED ROM DATA * R4s ACTUAL ROM DATA 


221° 


' ' * ^ « 
070470 


003776 








3776 






1 




2 05 4 








CMP 


R5.P4 


I ARE NE'W PC CONTENTS CORRECT? 


it ■> 


020474 


ft A 1 d ft 1 








BEQ 


2* 


iBR IF YES 


2213 


020476 


1 04006 








HLT 


6 


■ Pnorto /<DnH or t c uddmr 

||ji<KUK# vKU" lr\. lo pKUPy 


221 4 


7 05O0 


1044Q1 






2 S I 


SC0P1 






22 1 5 


020502 


01 27 37 


020510 


001220 




MOV 


t3$,LOCK 


J NEW SC0P1 


2216 


0705 1 








3$ 1 








2217 


02051 


10 4414 








ROMCLK 






22 1 Q 


020512 


1 ftft A. ft \ 








100403 




J Ol An i ft I PUB i"V.*J 


22 ] 9 


02051 4 


104414 








ROMCLK 




J NfcAT WORD Io INofHUCTiuN* KUMLliK rCS&J04 


2220 


020516 


1 004 00 








100000K400«1> jJUHP 


TO ROM PC OF 


2271 


020520 


0047 37 


035522 






JSR 


PC, ROMDAT 


I R5*EXPECTED ROM DATArR4*ACTUAL ROM DATA 


2222 


070524 


000000 













( INDEX 


222 3 


020526 


02050 4 








CMP 


R5,P4 


■ARE NEW PC CONTENTS CORRECT? 


222 4 


0205 30 


00 J 401 








BEG 


4t 


fBR IF YES 


222S 


705 32 


1 04006 








HLT 


6 


} error » c ro-v pc i s wrong 


222^ 


70534 


104401 






4S t 


SC0P1 




jLOOP TO 36 IF SW0$b1 


2227 


0205 36 


01 27 37 


020544 


001 220 




MOV 


#58, LOCK 


jNEW SC0P1 


222* 


070544 








53 i 








22 79 


02O544 


1 4 4 J 4 








ROMCLK 




■ Mir vt unon tc t MCToTirTTnu snun .if Df"e* 1 Ad 






1 ft ft A ftC 








100406 




> CPHDf ST DOM Of* ssfc 






10 4414 








ROMCLK 




, upyt unon tc TMCToiTPTTrtw. PnmC T.lf Of*a*\ 1f\A 

) NLAl MUfU IO 1 w O 1 K 1 lUrt • nUPl^-Li^ rW"33U'l 




Jf " ' f 


1 04525 








1041251<400»1> 


t JUMP TO ROM pc OF 525 


TIT 


A ?«K ' ft 










JSR 


PC, ROMDAT 


|R5»EXPECTED ROM DATA r R4* ACTUAL ROM DATA 


22 34 




Qf)^25? 








1252 




t INDEX 






n ft ft a 








CMP 


R5.P4 


j ARE NEW ROM PC CONTENTS CORRECT? 




07fl5fi4 


0O1 401 








BEQ 


68 


jBR IF YES 




020566 










HLT 


6 


f ERROR* CROM PC IS WRONG 




02057 


1 0440 1 








SC0P1 




I LOOP TO 5S IF SW59«1 




w r.05 , 2 


1 04400 








SCOPE 




;SC0PE THIS TEST 


















































)##»*♦»»#»#»#**»»#»»*♦****»* TEST 16 »*»♦#♦*»•»»»»»*»•****»»***« 


2243 












••CROM 


TEST OF JUMP CI) 


ON C BIT SET MICRO-PROCESSOR INSTRUCTION, 


2244 












»*SET THE C BIT, PERFORM THE JUMP INSTRUCTION, 


224S 












(•VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


224h 












( | ♦*»»♦*#»»#»*»»»♦»«»**»»**»**#**»#»*»*»#»»»»»»#»*«*»***♦»#**«*« 


2247 


















224R 












> TEST 


16 




2249 


















22SO 


070574 


012737 


000016 


001226 


TST16I 


MOV 


#16,TSTN0 




2251 


0706O7 


017737 


020764 


001216 




MOV 


»TST17,NEXT 




22S7 


020610 


012737 


020(530 


001220 




MOV 


fit, LOCK 




2253 
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-DEC-76 


14 159 




CROM JUMP TESTS 








225a 


070616 


1 04412 








MSTCLR 




I MASTER CLEAR DMC11 


225^ 


170620 


037737 


100000 


001366 




BIT 


#BIT15,STAT1 


»IS IT CRAM? 


2?5(S 


070626 


001055 








BNE 


6S+2 


;SKIP TEST IF YES 


2257 


070630 








1SI 








275P 


02063O 


004737 


035476 






JSP 


PCSETC TSET 


THE C BIT * 


2259 


070634 


104414 








ROMCLK 




;NEXT WORD IS INSTRUCTION, ROMCLK FC=5304 


226^ 


020636 


100400 








100400 




I START AT ROM PC = 


2?M 


020640 


104414 








ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


22*7 


070842 


115377 








1143771<400»2> 


jJUMP TO ROM PC OF 1777 


2763 


070644 


004737 


035522 






JSP 


PC, ROMDAT 


jR5aEXPECTED ROM . DATA, R4aACTUAL ROM DATA 


27*4 


070650 


003776 








3776 


R5.R4 


1 INDEX 


226* 


020652 


020504 








CMP 


J ARE NEW PC CONTENTS CORRECT? 


22fc* 


020654 


001 401 








BEQ 


2S 


J BR IF YES 


2767 


020656 


104006 








HLT 


6 


( ERROR, CROM PC IS WRONG 


776K 


O70S60 


1 04401 






2St 


SC0P1 




J LOOP TO IS IF S»'09 = l 


726<? 


020667 


012737 


070670 


001220 




MOV 


(33, LOCK 


j NEW SC0P1 


2270 


020670 








3e: 








2271 


070670 


004737 


035476 






JSR 


PCSETC |SET 


THE C BIT' 


2777 


070674 


104414 








ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


227 3 


070*76 


10O403 








100403 




(START AT ROM PC=3 


2274 


O20700 


104414 








ROMCLK 




I NEXT WORD TS INSTRUCTION, ROMCLK PC*5304 


2275 


020702 


101000 








100000i<400»2> | JUMP TO ROM PC OF 


2276 


020704 


0O4737 


03552? 






JSR 


PC, ROMDAT 


»R5aEXPECTED ROM DATA, R4=ACTUAL ROM DATA 


2277 


070710 


000000 













( INDEX 


227B 


020712 


020504 








CMP 


R5,R4 


; ARE NEW PC CONTENTS CORRECT? 


2279 


0207 1 1 


001401 








BEQ 


48 


I BR IF YES 


22B0 


070716 


104006 








HLT 


6 


J ERROR, CROM PC IS WRONG 


2291 


020720 


104401 






48 t 


SC0P1 




jLOOP TO 3S IF SW09«1 


22P2 


020722 


012737 


070730 


001220 




MOV 


t5S,L0CK 


I N£W SC0P1 


2233 


020730 








5S! 








22S4 


070730 


004737 


035476 






JSR 


PCSETC »SET 


THE C BIT' 


22R5 


070734 


1044J4 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


22P6 


070736 


100406 








100406 




» START AT ROM PC«6 


2267 


070740 


10441 4 








ROMCLK 




J NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


22R0 


020742 


105125 








1041251<400»2> 


jJUMP TO ROM PC OF 525 


22S9 


020744 


004737 


035522 






JSR 


PC ROMDAT 


|R5=EXPECTED ROM DATA, R4=ACTUAL POM DATA 


22<5Ci 


070750 


001252 








i 252 






2291 


07O752 


020504 








CMP 


R5,R4 


f ARE NEW ROM PC CONTENTS CORRECT? 


220? 


020754 


001401 








BEQ 


6» 


I BR IF YES 


2293 


02P756 


1 O4006 








HLT 


6 


lEPPOR, CROM PC IS WRONG 


2294 


020760 


104401 






6S: 


SC0P1 




jLOOP TO 5S IF SW59»1 


2295 


020762 


104400 








SCOPE 




fSCOPE THIS TEST 


2796 


















2297 


















220S 












)•*••»•••»••**•••••****••••• TEST 17 ••**•*•«•••••*«*•******«•*• 


2299 












1#CR0M 


TEST OF JUMPdJ ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 


2300 












l»SFT THE Z BIT, PERFOP" THE JUMP INSTRUCTION, 


2301 












j#VFRIFY THE JUMP BY 


PEADING THE CONTENTS OF THE NEW ROM PC 


7307 
2301 












t | *»**»•*••**••»•*••••••****•*•*••**»•*••»•*•**«•••«*•*•**•••••• 


230 1 












! TEST 


17 




2305 


















230*. 


0?07h % 


o) 2737 


O"00 1 7 


1 2 7 h 


7PT1 7 ! 


unv 


*17,TSTNO 




??n; 


070777 


01 2737 


"71 1 "M 


001?)ft 




PDV 


«TST20, NEXT 




73r,t 


O ? 1 1 


017717 


071070 


001 220 




MOV 


»1 S.LOCK 




!1« 
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2310 


021 0"6 


104412 








H5TCLR 




j MASTER CLEAR DMC 1 1 


2311 


021010 


032737 


100000 


001366 




BIT 


#BIT15,STAT1 


I IS IT CRAM? 


2312 


021016 


001 055 








BNE 


65 + 2 


(SKIP TEST IF YES 


2313 


021020 








1 8 t 






2314 


021020 


004737 


03551 4 




JSP 


POSETZ (SET 


THE Z BIT' 


231 5 


021024 


104414 








ROMCLK 


j NEXT WORD IS INSTRUCTION, ROMCLK PC>5304 


231* 


021 026 


1 I1O4O0 








100400 




(START AT ROM PC=0 


2317 


021030 


10441 4 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PO5304 


231 » 


021032 


1 15777 








114377l<400»3> 


(JUMP TO ROM PC OF 1777 


231" 


021034 


004737 


035522 






JSR 


PC , ROMDAT 


[R5«EXPECTED ROM DATA, R4=ACTUAL ROM DATA 


23?o 


021040 


003776 








3776 




( INDEX 


2321 


021 042 


070504 








CMP 


R5,R4 


(ARE NEW PC CONTENTS CORRECT? 


2327 


210 41 


001401 








BEQ 


28 


jBR IF YES 


2373 


07104* 


1 04006 








HLT 


6 


( ERROR, CROM PC IS WRONG 


2324 


021050 


104401 






2$ : 


SC0P1 




(LOOP TO 18 IF SW09»1 


2375 


021052 


012737 


021060 


001220 




MOV 


131, LOCK 


(NEW SC0P1 


237* 


021 060 








311 






2377 


021 060 


004737 


035514 






JSP 


PC, SET Z (SET 


THE Z BIT* 


232 = 


021064 


104414 








ROMCLK 


j NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


2329 


021066 


1O04O3 








100403 




( START AT ROM PC = 3 


2330 


021070 


104414 








ROMCLK 




i NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


2331 


021072 


101400 








1000001<400»3> (JUMP TO ROM PC OF 


2337 


021074 


004737 


035522 






JSR 


PC, ROMDAT 


|R5»EXPECTED ROM DATA, R4»ACTUAL ROM DATA 


2333 


021 100 


000000 













( INDEX 


2334 


021102 


020504 








CMP 


RS,R4 


(ARE NEW PC CONTENTS CORRECT? 


2335 


021104 


001 401 








BEQ 


48 


»BR IF YES 


2338 


021 106 


104006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


2337 


021 110 


104401 






4S j 


SC0P1 




(LOOP TO 3$ IF SW09«1 


23'»P 


021112 


012737 


021120 


001220 




MOV 


15$, LOCK 


I NEW SC0P1 


233° 


021120 








5S I 








23 10 


021 120 


004737 


03551 4 






JSR 


PCSETZ (SET 


THE Z BIT" 


2341 


021 124 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


2347 


021126 


1 0040* 








100406 




(START AT ROM PC=6 


2343 


021 1 30 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


2344 


021132 


105525 








104125I<400»3> 


(JUMP TO ROM PC OF 525 


2345 


021134 


004737 


035522 






JSR 


PC, ROMDAT 


;R5=EXPECTED ROM DATA, P4«ACTUAL ROM DATA 


234* 


021140 


001252 








1252 




(INDEX 


2347 


071142 


020504 








CMP 


R5,R4 


I ARE NEW ROM PC CONTENTS CORRECT? 


234ft 


071 144 


001401 








BEQ 


6S 


(BR IF YES 


2341 


071 1 46 


104006 








HLT 


« 


(ERROR, CROM PC IS WRONG 


2350 


021 1 SO 


1 04401 






6St 


SC0P1 




(LOOP TO 58 IF SW59=1 


23*1 


171 152 


1 04400 








5C0PE 




I SCOPE THIS TEST 


2 352 


















2353 


















2354 












j •••••••••••***•••**»••***** TEST 20 •**•*•*•*•*•••***•***»••••* 


2355 












(•CROM 


TEST Of JUMP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION . 


235* 












(♦SET THE BPO BIT, PERFORM THE JUMP INSTRUCTION, 


2357 












(♦VERIFY THE JUMP BY 


READING THE CONTENTS OF THE NEW ROM PC 


2350 
2 351 












1 (•♦♦••••••••♦♦••♦•♦♦♦*♦♦*♦♦•♦•♦♦♦♦♦♦♦♦♦•♦•♦♦♦♦♦♦♦**♦♦*♦•♦♦♦•♦♦♦ 


23*n 












1 TEST 


20 




23*1 


















23*7 


021154 


012737 


000020 


001226 


TST20 I 


MOV 


#20,TSTN0 




23*3 


021162 


012737 


021 344 


001216 




MOV 


tTSTJl , NEXT 




23*4 


021170 


012737 


021210 


001220 




MOV 


#11, LOCK 




23*5 
















(Rl CONTAINS BASE DMC 11 ADDRESS 
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DZDMh.Pjl 09 


-DEC-76 


14S59 




CROM JUMP TESTS 








236* 


071 176 


1 04412 








MSTCLR 




(MASTER CLEAR DMC 11 


23*7 


071 200 


032737 


100000 


001366 




BIT 


IBIT15,STAT1 


(IS IT CRAM? 


23*A 


021 7"* 


0O1055 








BNE 


68+2 


(SKIP TEST IF YES 


73*« 


071 21 








181 








2370 


021210 


004737 


035446 






JSR 


PCSETBRO 


I SET THE BRO BIT* 


2371 


07171 4 


10441 4 








ROMCLK 




( NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


237? 


071 71* 


100400 








100400 




(START AT ROM PC=0 


23-"3 


021220 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


2374 


021222 


1 16377 








1143771<400»4> 


(JUMP TO ROM PC OF 1777 


2375 


021224 


004737 


035522 






JSR 


PC, ROMDAT 


(R5=EXPECTED ROM DATA, R4* ACTUAL ROM DATA 


237* 


071 730 


003776 








3776 




(INDEX 


2377 


071237 


020504 








CMP 


R5,P4 


(ARE NEW PC CONTENTS CORRECT? 


237S 


071734 


001401 








BEQ 


28 


(BP IF YES 


2379 


021236 


1 04006 








HLT 


6 


(EAROR, CRO M PC IS WRONG 


23«o 


071740 


104401 






281 


SC0P1 




(LOOP TO IS IF SW09»1 


2 3«1 


021 742 


012737 


021250 


001220 




MOV 


138, LOCK 


(NEW SC0P1 


2387 


021250 








391 








23<?3 


021 250 


O04737 


035446 






JSR 


PCSETBRO 


(SET THE BRO BIT* 


2 3P 4 


071 254 


1044U 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 


2 3P5 


021256 


100403 








100403 




(START AT ROM PC=3 


23R* 


021260 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


7387 


071 267 


102000 








100000I<400»4> (JUMP 


TO ROM PC OF 


23fl« 


021264 


004737 


035522 






JSR 


PC, ROMDAT 


(R5*EXPECTED ROM DATA, R4* ACTUAL ROM DATA 


23fl9 


021270 


000000 













(INDEX 


7390 


071277 


020504 








CMP 


R5,R4 


; ARE NEW PC CONTENTS CORRECT? 


2391 


021274 


001401 








BEO 


48 


(BR IF YES 


7397 


021276 


104006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


2393 


021 300 


104401 






481 


SC0P1 




(LOOP TO 3S IF SW0931 


2394 


02t 307 


012737 


021310 


001220 




MOV 


158, LOCK 


(NEW SC0P1 


7 395 


071 310 








58 t 








73"* 


021310 


004737 


035446 






JSR 


PCSETBRO 


(SET THE BRO BIT* 


2397 


021314 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


23°S 


02! 316 


10040* 








100406 




; START AT POM PC=6 




02132O 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC"5304 


2400 


021 322 


106125 








104125K400*4> 


(JUMP TO ROM PC OF 525 


2401 


021374 


004737 


035522 






JSR 


PC, ROMDAT 


(R5«EXPECTED ROM DATA, R 4* ACTUAL ROM DATA 


2407 


021330 


001252 








1252 




(INDEX 


2403 


021332 


020504 








CMP 


R5.R4 


(ARE NEW ROM PC CONTENTS CORRECT? 


2404 


071 334 


001401 








BFQ 


68 


(BR IF YES 


2405 


071 336 


1 04006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


2406 


021340 


104401 






6S: 


SC0P1 




! LOOP TO 58 IF SW59=1 


2407 


071342 


1044O0 








SCOPE 




(SCOPE THIS TEST 


240P 


















740<) 


















24J n 












(***♦•♦♦*♦♦♦•♦♦♦♦•*•***•**•• TEST 21 ••***♦♦♦♦♦♦♦♦♦•♦♦♦♦♦♦♦♦♦♦•♦ 


241 1 












j»CPOM 


TEST OF JUMptl) 


ON BR1 SET MICRO-PROCESSOR INSTRUCTION. 


241 7 












!*SET THE BR 1 BIT, PERFORM THE JUMp INSTRUCTION, 


2413 












(♦VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


7414 
24 15 
241 * 












j j ♦♦*♦»♦♦♦♦♦♦♦♦♦♦♦••*•** *••••••»••*»*#»«»#••*•»»***•*•»*»•**«««» 












! TEST 


21 




24 1 7 
241 * 


















713 4 4 


o l 7 7 ■> 7 


000021 


00172* 


TPT21 : 


MOV 


I21.TSTN0 




2411 


2 13 5 2 


12 7 17 


021534 


O01216 




MOV 


#TST22, NEXT 




74 7"' 


17 1 1*0 


012T37 


"71 400 


001720 




"PV 


•1S.L0CK 




217! 
















jK! CONTAINS PISE !V'C!! ADDRESS 



DZDMH MACY11 27(1006) 14-DFC-76 16:32 PAGE 49 
DZDMti.Pll 09-DEC-76 14t59 CROM JUMP TESTS 



PAGE J 0194 



2422 


021 366 


104412 








HSTCLR 




(KASTEP CLEAR 0MC11 


2425 


021370 


032737 


100000 


001366 




BIT 


#BIT15,STAT1 


(IS IT CRAM? 


242'' 


021376 


001055 








BNE 


6S + 2 


[SKIP TEST IF YES 


2475 


021400 








is I 








2426 


021400 


O04737 


015454 




JSP 


PCSETBR1 


jSET THE 3R1 BIT' 


2427 


021404 


104414 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


2423 


021406 


100400 








100400 




S START AT ROM PC=0 


2429 


02141 


i 04414 








ROMCLK 




.NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 


2430 


021 412 


116777 








114377i<400«5> 


[JUMP TO ROM PC OF 1777 


2411 


02141 4 


004737 


035522 










(R5=EXPECTED ROM DATA, R4* ACTUAL ROM DATA 


2412 


021 420 


003776 








3776 




j INDEX 


243? 


021422 


020504 










R<S R4 


;APE NEW PC CONTENTS CORRECT? 


2434 


021 424 


001401 








a-- 




j BR IF YES 


2435 


021426 


104006 












I ERROR, CROM PC IS WRONG 


2416 


021430 


104401 






28 : 


srno< 




(LOOP TO IS IF SW09»1 


2437 


021432 


012737 


021440 


001220 




MOV 


9 3S , LOCK 


(NEW SC0P1 


2418 


021440 








38: 








2419 


021 440 


004737 


035454 






JSP. 


PCSETBPl 


;SET THE BR1 BIT' 


2440 


021 444 


104414 








ROMCLK 




t NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


2441 


021446 


100403 








100403 




j START AT ROM PC=3 


2442 


021450 


104414 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


2443 


021 452 


102400 








100000S 


<400»S> (JUMp 


TO ROM PC OF 


2444 


021454 


004737 


035522 






JSR 


PC, ROMDAT 


;R5=EXPECTED ROM DATA, R4=ACTUAL ROM DATA 


2445 


021460 


000000 













( INDEX 


2446 


021462 


020504 








CMP 


R5,R4 


} ARE NEW PC CONTENTS CORRECT? 


24 17 


021 464 


001401 








BEQ 


4S 


j BR IF YES 


244B 


021 466 


104006 








HIiT 


6 


I ERROR, CROM PC IS WRONG 


2449 


021470 


104401 






4S l 


SC0P1 




(LOOP TO 3$ IF SW09«1 


7450 


021 472 


012737 


021500 


001220 




HOV 


#58, LOCK 


1 NEW SC0P1 


2451 


021500 








58: 










02 1 SCO 


054737 


035454 






JSR 


PC.SETBR1 


(SET THE BR1 BIT' 


2451 


021504 


104414 








ROMCLK 




( NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


2454 


021506 


100406 








100406 




I 5TAPT AT ROM PC=6 


245 K 


021510 


1 04414 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PCo5304 


2456 


021512 


106525 








104125J<400»5> 


>JUHP TO ROM PC OF 525 


2457 


02151 4 


004737 


035522 






JSR 


PC f ROMDAT 


jRSaEXPECTED ROM DATA, R4= ACTUAL ROM DATA 


2459 


02152O 


001252 








1252 




1 INDEX 


2459 


021522 


020504 








CMP 


R5.R4 


1 ARE NEW ROM PC CONTENTS CORRECT? 


2460 


021524 


001401 








BEQ 


6S 


jBR IF YES 


2461 


021526 


104006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


2462 


02153O 


104 401 






6$ I 


SC0P1 




jLOOP TO 5S IF SW59=1 


2*b3 


021532 


104400 








SCOPE 




(SCOPE THIS TEST 


2464 
2465 


















2466 












1 ***••••••**•••»•*•*••»**•*• TEST 22 *************************** 


2467 












••CROM 


TEST OF JUMP(I) 


ON BR4 SET MICRO-PROCESSOR INSTRUCTION, 


24*3 












»»SET THE BR4 BITi PERFORM THE JUMP INSTRUCTION , 


2460 












(•VERIFY THE JUMP BY READING THE CONTENTS OF THE NEW ROM PC 


2471 
2471 












1 :•»*»»••«•»•**»»#»*»••••»»»*♦•••»»»«*»*«»**»»*»»#»*»»»»»#*■*»»*» 


2472 












1 TEST 


22 




247 3 


















2474 


021534 


01 2737 


000022 


001226 


TST22 I 


MOV 


t22,TSTN0 




2475 


021542 


012737 


021724 


001216 




MOV 


»TST23,NEXT 




2476 


021550 


012737 


021570 


001220 




MOV 


t 18, LOCK 




2477 
















(Rl CONTAINS BASE DMC11 ADDRESS 
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CROM JUMP TESTS 








7479 


021556 


104412 








MSTCLR 




} MASTER CLEAR DMCll 


2470 


021560 


032737 


100000 


001366 




BIT 


tBIT15,STATl 


JIS IT CRAM? 


2430 


021566 


001055 








BNE 


6S+2 


(SKIP TEST IF YES 


24PI 


021570 








is: 








2192 


021570 


004737 


035462 






JSR 


PC, SETBR4 


(SET THE BR4 BIT' 


24R3 


071574 


1044i4 












»»EXT WORD IS INSTRUCTION. ROMCLK PC=5304 


2494 


071576 


100400 








100400 




I START AT ROM PC = 


74H5 


021600 


104414 








ROMCLK 




( NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


2486 


021602 


117377 








114377I<400»6> 


;JUMP TO ROM PC OF 1777 


24R7 


021604 


004737 


035522 






JSR 


PC, ROMDAT 


JR5*EXPECTED PO" DATA , R4* ACTUAL ROM DATA 


24S9 


021610 


003776 








3776 




J INDEX 


2409 


071612 


020504 








CMP 


F5.R4 


J ARE NEW PC CONTENTS CORRECT? 


2490 


021614 


001401 








BEQ 


28 


j BR IF YES 


2 491 


021616 


1 04006 








HLT 


6 


J ERROR, CROM PC IS WRONG 


24°2 


021620 


104401 






2S| 


SC0P1 




(LOOP TO IS IF SW09S! 


2493 


021622 


012737 


021630 


001220 




MOV 


138, LOCK 


J NEK SC0P1 


2494 


021630 








38: 








2495 


021630 


004737 


035462 






JSP 


PC, SETBR4 


(SET THE BR4 BIT* 


2496 


021634 


104414 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


2497 


021636 


100403 








100403 




J START AT ROM PC = 3 


249(1 


021640 


104414 








ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


2490 


021642 


103O00 








100000i<400»6> (JUMP 


TO ROM PC OF 


2500 


021644 


004737 


035522 






JSR 


PC, ROMDAT 


>R5=EXPECTED ROM DATA, R4= ACTUAL ROM DATA 


2501 


021650 


000000 













I INDEX 


2502 


021652 


020504 








CMP 


R5.R4 


j ARE NEW PC CONTENTS CORRECT? 


7503 


021654 


001401 








BEQ 


4$ 


t BR IF YES 


2504 


021656 


104006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


2505 


021660 


104401 






4S| 


SC0P1 




; LOOP TO 38 IF SW09=1 


2506 


P21662 


012737 


021670 


001220 




MOV 


15$, LOCK 


;NEW SC0P1 


7507 


021570 








ss: 








2508 


021670 


004737 


035462 






JSP 


PC, SETBP4 


(SET THE BR4 BIT' 


2"->9 


071674 


104414 








ROMCLK 




J NEXT WORD IS INSTRUCTION, ROMCLK PCs5304 


2510 


021676 


100406 








100406 




1 START AT ROM PC = 6 


251 1 


021700 


10441 4 








ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 


2512 


021 702 


107125 








1041251<400*6> 


(JUMP TO ROM PC OF 525 


25 13 


021704 


004737 


035522 






JSP 


PC, ROMDAT 


(R5=EXPECTED POM DATA. R4=ACTUAL ROM DATA 


















! INDEX 


2515 


071712 


020504 








CMP 


RS,R4 


>»RE NEW ROM PC CONTENTS CORRECT? 


2516 


021714 


001 401 








BFQ 


6$ 


(Bp IF YES 


25 17 


071716 


104006 








HLT 


6 


t ERROR , CPOM PC IS WRONG 


25 1 fl 


071720 


104401 






63: 


SC0P1 




(LOOP TO 58 IF SW59=1 


7M9 


021722 


104400 








SCOPE 




j SCOPE THIS TEST 


2520 


















2521 


















2522 












1 »»»»#••»«»»•*»»*■»**«•#»*»** TEST 23 ••«•**•****•••*••••**»••••• 


2571 












(♦CPOH 


TEST OF JUMP(T) 


ON BF7 SET MICRO-PROCESSOR INSTRUCTION, 


2524 












;»SET THE BR7 BIT, PERFORM THF JUMP INSTRUCTION, 


7525 












» "VERIFY THE JUMP PY READING THE CONTENTS OF THE NEW ROM PC 


7576 












; ; »**•••••••••••••*«*•*••**••****•«***«*••••*•«•*«••*•*»*•**•*•# 


2527 


















?s?a 












; TEST 


23 




7579 


















25 30 


717J4 


"12737 


000023 


001226 


TST2 3: 




»23.TST».n 




7511 


021717 


012737 


0721 1 4 


001216 






iTST24,NEXT 




7517 


." ? i •> i 


01 2737 


'■71760 


001220 






S 1 S,LOCK 




25 13 
















ir)j CONTAINS BASF. CMCil ACDPESS 



DZD"H M4CY11 27(1006) 14-DEC-76 16: 32 PAGE 1 51 
DZDMH.Pli 09-DEC-76 14:5« CPQV JL!»'P TESTS 



PAGE: 0196 



7534 


021746 


104412 








MSTCLR 




(FASTER CLEAR DMC11 


2515 


02 1 750 


032737 


100000 


001366 




BIT 


#BIT15»STAT1 


(IS IT CRAM? 


7536 


071756 


001055 








BNE 


68+2 


1 SKIP TEST IF YES 


2537 


021 760 








1 S 1 






253P 


021 760 


004737 


035470 






JSP, 


PC , SETBR7 


(SET THE BR7 BIT ' 


25 3? 


071764 


1 04414 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


2540 


021 766 


1 00400 








100400 




; START AT ROM PC=0 


2*41 


021770 


104414 








ROMCLK 




j NEXT WORD IS INSTRUCTION , ROHCLK PC«5304 


2542 


021 772 


1 17777 








114377!<400»7> 


(JUMP TO ROM PC OF 1777 


2543 


02 1 774 


004737 


035522 






JSP. 


PC, ROMDAT 


(R5sEXPECTED ROM DATA, R4=ACTUAL ROM DATA 


2*44 


022000 


003776 








3776 




1 INDEX 


2545 


022002 


020504 








CHp 


R5,P4 


1 ARE NEW PC CONTENTS CORRECT? 


2546 


022004 


001401 








BEQ 


2S 


(BR IF YES 


2547 


072006 


104006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


2548 


022010 


104401 






2ti 


SCQP1 




(LOOP TO 18 IF SW09«1 


2549 


O7201 2 


01 2737 


022020 


001 220 




MOV 


#38, LOCK 


(NEW SC0P1 


2550 


022020 








3S 1 








255 1 


022020 


0047 37 


035470 






JSR 


PC, SETBR7 


(SET THE BR7 BIT' 


2552 


022024 


104414 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


2553 


022026 


100403 








100403 




(START AT ROM PC=3 


2554 


22030 


1 0441 4 








POMCLK 




( NEXT WORD IS INSTRUCTION, POMCLK PC"5304 


2555 


022032 


1 03400 








100000l<400»7> (JUMP 


TO ROM PC OF 


2*156 


072034- 


004737 


035522 






JSR 


PC, ROMDAT 


(R5=EXPECTED ROM DATA, R4=ACTUAL ROM DATA 


2557 


072040 


000000 













( INDEX 


2558 


022042 


020504 








CMp 


R5,R4 


(ARE NEW PC CONTENTS CORRECT? 


2559 


072044 


001401 








BEQ 


4S 


(BR IF YES 


75*0 


O72046 


1 04006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


7*6 1 


022050 


104401 






4S : 


SC0P1 




(LOOP TO 3S IF SW09=1 


7562 


07205? 


012737 


022060 


001220 




MOV 


158, LOCK 


(NEW SCOPt 


7*6 3 


022060 








531 








7564 


022060 


004737 


035470 






JSP 


PCSETBP7 


(SET THE BR7 BIT' 


75*5 


072064 


1 0441 4 








POMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


75*6 


072066 


100406 








100406 




j START AT ROM PC=6 


7567 


O72070 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


7568 


072072 


107525 








1041251<400»7> 


(JUMP TO ROM PC OF 525 


7569 


077074 


004737 


035522 






JSR 


PC, ROMDAT 


(R5»EXPECTED ROM DATA, R4=ACTUAL ROM DATA 


2*70 


022100 


001252 








1252 




( INDEX 


257 1 


0221 02 


020504 








CHP 


R5.R4 


(ARE NEW ROM PC CONTENTS CORRECT? 


2572 


0221 04 


001401 








BEQ 


6S 


(BR IF YES 


257 3 


0221 06 


104006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


7*7 4 


072110 


104401 






611 


SC0P1 




(LOOP TO 5S IF SW59=1 


7575 


0271 1 2 


104400 








SCOPE 




(SCOPE THIS TEST 


7576 


















2577 


















7*78 












(••♦»»»»#•»•»»#»«»•»«»»»•»•» TEST 24 »»»♦*»»»•»»*»•»»**»»*•»*«»• 


7579 












(•CROM 


TEST OF JUMP(I) 


ON C BIT SET MICRO-PROCESSOR INSTRUCTION, 


7*80 












(•CLEAR 


THE C BIT, PERFORM THE JUMP INSTRUCTION, 


7*91 












(•VERIFY THAT THE JUMP 


DID NOT OCCUR BY READING 


25H2 












(•THE CONTENTS OF THE 


NEW ROM PCCIT SHOULD INCREMENT BY ONE), 


259 3 












( ( »»»»»•»##»••#»••*»»•»»»»»»»»»»»»»»•••»»•»»»»»•»»•»»••#•••••♦»» 


2594 


















75«5 












J TEST 


24 




7*86 


















7*87 


"221 1 4 


01 2737 


000024 


001226 


TST24I 


MOV 


#24,TSTN0 




2588 


C721 22 


012737 


022304 


001216 




MOV 


#TST25,NEXT 




2*89 


0721 30 


012737 


072150 


001220 




MOV 


11$, LOCK 
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CROM JUMP TESTS 








2*90 
















(Rl CONTAINS BASE DMC11 ADDRESS 


75 Q 1 


072136 


104412 








M5TCLR 




(MASTER CLEAR DMC11 


7597 


02714O 


032737 


100000 


001366 




BIT 


#BIT15,STAT1 


(IS IT CRAM? 


7593 


077146 


001055 








BNE 


68+2 


(SKIP TEST IF YES 


7*04 


027150 








1SI 








7595 


0721S0 


004737 


035430 






JSR 


PC, CLRALL 


(CLEAR ALL CONDITIONS 


2*96 


022154 


104414 








ROMCLK 




; NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


7*97 


072156 


1 00400 








100400 




(START AT ROM PC=0 


7* Q " 


"27160 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, POMCLK PC*5304 


2*99 


022162 


1 15377 








1143771<400#2> 


(JUMP TO ROM PC OF 1777 


2fcD0 


027164 


004737 


035522 






JSR 


PC, ROMDAT 


(R5=EXPECTED ROM DATA , R4x ACTUAL ROM DATA 


2601 


"72170 


000002 








2 




(INDEX 


7602 


072172 


020504 








CMP 


P5,R4 


( ARE NEW PC CONTENTS CORRECT? 


7613 


072174 


001401 








BEQ 


2S 


(OR IF iES 


7*04 


022176 


104O06 








HLT 


6 


(ERROR, CROM PC IS WRONG 


76f>* 


027200 


104401 






231 


SC0P1 




(LOOP TO IS IF SW09=1 


2606 


022202 


012737 


022210 


001220 




MOV 


#38, LOCK 


(NEW SC0P1 


2607 


072210 








3s: 








7600 


022210 


004737 


035430 






JSP 


PC, CLRALL 


(CLEAR ALL CONDITIONS 


7609 


022214 


104414 








ROMCLK 




( NEXT WORD IS INSTRUCTION, POMCLK PC=5304 


2* 10 


022216 


1 00403 








100403 




(START AT ROM PC«3 


26 1 1 


022220 


1 04414 








POMCLK 




( NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 


261 7 


022222 


101000 








100000!<400»2> (JU"P 


TO ROM PC OF 


7*1 3 


072224 


004737 


035522 






JSR 


PC, ROMDAT 


(R5SEXPECTED ROM DATA, R4=ACTUAL ROM DATA 


2614 


072230 


000010 








10 




(INDEX 


7*15 


022232 


020504 








CMP 


R5,R4 


(ARE NEW PC CONTENTS CORRECT? 


761 6 


072234 


001401 








BEQ 


4$ 


(BR IF YES 


2*1 7 


077236 


104006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


76! 8 


077240 


104401 






4(1 


SC0P1 




(LOOP TO 3$ IF SW09el 


2*1 9 


022242 


01 2737 


022250 


001220 




MOV 


#58, LOCK 


(NEW SC0P1 


2620 


022250 








58 J 








2*71 


022250 


004737 


035430 






JSR 


PC, CLRALL 


(CLEAR ALL CONDITIONS 


2*27 


022254 


104414 








ROMCLK 




[ NEXT WORD IS INSTRUCTION, POMCLK PC«5304 


2623 


072256 


100406 








100406 




(START AT ROM PC=6 


2*24 


077760 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


2625 


022252 


1 05125 








104125I<400»2> 


(JUMP TO ROM PC OF 525 


2626 


022264 


004737 


035522 






JSR 


PC, ROMDAT 


(R5=EXPECTED ROM DATA, R4b ACTUAL ROM DATA 


2677 


022270 


000016 








16 




(INDEX 


762S 


077272 


020504 








CMP 


R5,P4 


(ARE NEW ROM PC CONTENTS CORRECT? 


2*29 


022274 


001401 








BEQ 


6$ 


(BR IF YES 


7*30 


022276 


1 04006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


2631 


072300 


10 4 4O1 






6S: 


SC0P1 




(LOOP TO 5S IF SW59=1 


7637 


077302 


1 04400 








SCOPE 




(SCOPE THIS TEST 


76 33 


















7634 


















7*35 












)»*•••••••••••••»••*•»•••••• TEST 25 ••**•••••••*•••*•*••••*•••• 


7636 












(•CROM 


TEST OF JUVPCIl 


ON Z BIT SET MICRO-PROCESSOR INSTRUCTION, 


76 37 












(•CLEAR 


THE Z BIT, PERFORM THE JUMP INSTRUCTION, 


7* 38 












;»VERIFY THAT THE JUMP 


DID NOT OCCUR BY READING 


7* 39 












(•THE CONTENTS OF THF 


NEW POM PCCIT SHOULD INCREMENT BY ONE), 


7*40 












; :**••••••••*••**•****••••••*••*•*••*•••*•••••••••••***»•*•»••*• 


2641 


















7*47 












; TEST 


25 




7*43 


















7 - -J 


7 7 3 01 


017737 


nn n?* 


0^1226 


TRT25 : 


M V V 


H25.TSTN0 




7* »S 


'1/7317 


012737 


072*74 


001 216 






eTST2*,»!FyT 







MAC Y! 1 


27 J 1 006) 


! 4-DFC 


DZDMH.Pll 09 


-DEC-76 


14:59 


2646 


022320 


012737 


022340 


2647 








264S 


022326 


104412 




2649 


022330 


032737 


100000 


2650 


022336 


0O1055 




2651 


022340 






2652 


022340 


0047 37 


035430 


265 5 


022144 


10441 4 




2654 


022346 


1 00400 




2655 


022350 


104414 




2656 


022352 


115777 




2657 


022354 


0047 37 


035522 


2658 


022360 


000002 




2659 


022362 


020504 




2660 


022364 


001401 




266! 


022366 


104006 




2662 


022370 


104401 




2663 


022372 


012737 


022400 


2664 


022400 






2665 


022400 


004737 


035430 


2666 


022404 


104414 




2*67 


022406 


100403 




2668 


022410 


104414 




2665 


022412 


t 01400 




2670 


022414 


004737 


035522 


2671 


022420 


000010 




2*72 


022422 


020504 




267 3 


022424 


001401 




2674 


022426 


1 04006 




2*7>; 


022430 


104401 




2*76 


022412 


01 2737 


022440 


2677 


022440 






2671 


022440 


004737 


035430 


2*79 


022444 


1 04414 




2680 


022446 


100406 




2681 


022450 


104414 




26R2 


022452 


105525 




26R3 


022454 


0047 37 


035522 


26«4 


O22460 


000016 




26R5 


022462 


020504 




268* 


022464 


001401 




26 P 7 


022466 


1 04006 




26RS 


022470 


1 04401 




2hP9 


022472 


1 04400 




2690 








2691 








2*92 








7693 








2694 








2695 








2*96 








2697 








269S 








2*99 








27:10 








2701 


022474 


012737 


000026 
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2S« 
3S I 



4$: 
5S: 



MSTCLR 

BIT 

SHE 



f IS, LOCK 



IBIT15 « STAT} 
68+2 

PCCLRALL 



JSR 
ROMCLK 
100400 
ROMCLK 

114377I<400«3> 



JSR 
2 

CMP 

BEQ 

HIT 

SC0P1 

MOV 



PC ROMDAT 

R5.R4 

21 

6 

t3«,L0CK 
PCCLRALL 



JSR 
ROMCLK 
100403 
ROMCLK 

100000l<400»3> 
JSR 
10 
CMP 
BEQ 
HLT 
SC0P1 



{JUMP TO 
PC , ROMDAT 

R5,R4 
4$ 
6 



SuV i5Si 

JSP PCC 
ROMCLK 
100406 
ROMCLK 
104125i<400»3> 



JSR 

16 

CMP 

BEQ 

HLT 

SC0P1 

SCOPE 



PC (ROMDAT 

R5,P4 
6$ 

6 



Rl CONTAINS BASE DMC11 ADDRESS 
MASTER CLEAR DMC11 
IS IT CRAM? 

SKIP TEST IF YES ' 
CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC»53C4 
START AT ROM PC = 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
JUMP TO ROM PC OF 1777 

P5=EXPECTED ROM DATA, R4a ACTUAL ROM DATA 
INDEX 

ARE NEW PC CONTENTS CORRECT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO It IF SW09=i 
NEW SC0P1 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
START AT POM PC»3 

NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
ROM PC OF 

R5*EXPECTED ROM DATA, R4= ACTUAL ROM DATA 
INDEX 

ARE NEW PC CONTENTS CORRECT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO 3S IF SW09B1 



CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
START AT ROM PC=6 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
JUMP TO ROM PC OF 525 

R5«EXPECTED ROM DATA, R4«ACTUAL ROM DATA 
INDEX 

ARE NEW ROM PC CONTENTS CORRECT? 
BR IF YES 

ERROR, CROM PC IS WRONG 
LOOP TO 5S IF SW59=1 
SCOPE THIS TEST 



(♦*«*♦♦*♦»»«*«**»***»»♦♦»*** TEST 26 **»«**•*•***»**••****•*•*•• 

j»CPOM TEST OF JUHP(I) ON BRO SET MICRO-PROCESSOR INSTRUCTION, 

I 'CLEAR THE BRO BIT, PERFORM THE JUMP INSTRUCTION, 

l*VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

j»THE CONTENTS OF THE NEW ROM PCCIT SHOULD INCREMENT BY ONE), 

11 ••••*••*•*•••*••***•#**#*«»**«««»*#»««»#»»*«»«»«««««« a e«ee»t»5 



TEST 26 



TST26 1 MOV 
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-DFC-76 


14159 




CROM JUMP TESTS 








2702 


022502 


012737 


022664 


001216 




MOV 


#TST27,NEXT 




2703 


P22510 


012737 


022530 


001220 




MOV 


IIS, LOCK 




27(14 
















JR1 CONTAINS BASE DMC11 ADDRESS 


2705 


022516 


104412 








MSTCLR 




I MASTER CLEAR DMC11 


2706 


022520 


032737 


100000 


001366 




BIT 


#BIT15,STAT1 


»IS IT CRAM? 


27*7 


022526 


001055 








BNE 


6S+2 


JSKIP TEST IF YES 


270"? 


022530 








IS: 








2709 


022530 


004737 


035430 






JSR 


PCCLRALL 


; CLEAR ALL CONDITIONS 


2710 


022534 


104414 








POMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 


271 J 


022536 


100400 








100400 




| START AT ROM PC=0 


271? 


022540 


104414 








ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


271 3 


022542 


1 1 6377 








U4377l<400»4> 


jJUMP TO ROM PC OF 1777 


271 4 


022544 


004737 


035522 






JSR 


PC (ROMDAT 


jR5*EXPECTED POM DATA, R4* ACTUAL ROM DATA 


2715 


022550 


000002 








2 




1 INDEX 


271 6 


022552 


020504 








CMP 


RS,R4 


I ARE NEW PC CONTENTS CORRECT? 


2717 


022554 


001401 








BEQ 


2$ 


;BR IF YES 


271 9 


022556 


104006 








HLT 


6 


J ERROR, CROM PC IS WRONG 


2719 


022560 


104401 






2St 


SC0P1 




jLOOP TO IS IF SW09=1 


27?9 


022562 


012737 


022570 


001220 




MOV 


13$, LOCK 


>NEW SCOPI 


2721 


022570 








38s 








2722 


022570 


004737 


035430 






JSP. 


PCCLRALL 


SCLEAR ALL CONDITIONS 


2723 


022574 


104414 








ROMCLK 




) NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


2724 


022576 


100403 








100403 




; START AT ROM PC=3 


2725 


022600 


104414 








ROMCLK 




f NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 


2726 


022602 


102000 








100000i<400»4> ijtmp 


TO ROM PC OF 


2727 


022604 


004737 


035522 






JSR 


PC, ROMDAT 


jR5«EXPECTED ROM DATA, R4* ACTUAL ROM DATA 


272S 


022610 


000010 








10 




1 INDEX 


2729 


022612 


020504 








CMP 


R5,R4 


J ARE NEW PC CONTENTS CORRECT? 


27 30 


022614 


001401 








BEQ 


4$ 


I BR IF YES 


2731 


022616 


104006 








HLT 


6 


! ERROR, CROM PC IS WRONG 


2732 


022620 


104401 






4S| 


scopi 




(LOOP TO 3$ IF SW09*1 


2733 


022622 


0127 37 


022630 


001220 




MOV 


•58, LOCK 


»NEW SCOPI 


27 34 


022630 








5Si 








2735 


022630 


004737 


035430 






JSR 


PCCLRALL 


»CLEAP ALL CONDITIONS 


2736 


022634 


104414 








ROMCLK 




f NEXT WORD IS INSTRUCTION, ROMCLK PCs5304 


2737 


022636 


100406 








100406 




} START AT ROM PC=6 


2739 


022640 


104414 








RuMCLK 






2739 


022642 


106125 








1041251<400»4> 


»JUMP TO ROM PC OF 525 


2740 


022644 


004737 


035522 






JSR 


PC ROMDAT 


(R5=EXPECTED POM DATA, R4n ACTUAL ROM DATA 


27 41 


O22650 


00016 








16 




J INDEX 


2742 


022652 


020504 








CMP 


R5,R4 


; ARE NEW ROM PC CONTENTS CORRECT? 


2743 


022654 


001401 








BEQ 


6$ 


; BR IF YES 


2744 


022656 


104006 








HLT 


6 


j ERROR, CROM PC IS WRONG 


2745 


022660 


104401 






6S t 


SCOPI 




;LOOP TO 5S IF SW59=1 


2746 


H22662 


104400 








SCOPE 




1 SCOPE THIS TEST 


2747 


















2748 


















2749 












•»**#•»**#**•••*••*«**»*••*• TEST 27 »•■*»«*■*»»»**»»•»«*»**•*•#»»# 


2750 












!*CROM 


TEST OF JUMP(I) 


ON BB1 SET MICRO-PROCESSOR INSTRUCTION. 


2751 












f »CLEAP 


THE BR1 BIT. PERFORM THE JUMP INSTRUCTION, 


275? 












;*VERIFY THAT THE J"MP 


DID NOT OCCUR BY READING 


27*3 












j *THE CONTENTS OF THE 


NEW ROM PCCIT SHOULD INCREMENT BY ONE), 


2754 












; ; **••••**•****•*•**••*•******•**•**•**•••**»**#*•••••••*•»••»•* 


2755 


















?75* 












; TEST 


27 




?7S7 
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2750 
2759 

2?»>r> 

2761 
2762 
2763 
2764 
2765 
2766 
2767 
2760 
2769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2773 
2779 
2780 
2791 
2782 
7793 
2784 
77*5 
27»6 
2787 
7798 
2789 
2790 
7791 
27">2 

279 3 
2794 
2795 
2796 
2797 
2799 
7799 
2800 

280 l 
2802 
2803 
2804 
2805 
280* 
2R07 
2808 
2809 

281 9 
791 1 
2P! 2 
?o 1 3 



0226j64 
022672 
022700 

022706 
022710 
022716 
022720 
022720 
022724 
022726 
022730 
022732 
022734 
022740 
022742 
022744 
022746 
022750 
022752 
022760 
072760 
022764 
022766 
022770 
022772 
022774 
023000 
023002 
023004 
023006 
023010 
023012 
O23O20 
073020 
073024 
023026 
023030 
023032 
023034 
023O40 
023047 
023044 
073046 
023050 
023052 



012737 
012737 
012737 

104412 
032737 
001055 

004737 
104414 
100400 
104414 
116777 
004737 
000002 
070504 
001 401 
104006 
104401 
012737 

004737 
1 04414 
1 00403 
104414 
102400 
004737 
000010 
020504 
001 401 
104006 
104401 
012737 

004737 
104414 
100406 
104414 
106525 
004737 
000016 
020504 
00H01 
104006 
104401 
1 04400 



000027 001226 
023054 001216 
022720 001220 



100000 001366 
035430 



TST27! 



MOV 
MOV 
MOV 



♦27,T5TN0 
*TST30,NEXT 
#11, LOCK 



022760 001220 
035430 



2St 
3$1 



023020 001220 
035430 



481 
5$l 



mstclr 

bit #bit15,stat1 

BNE 61+2 

JSP PC.CLRALL 

ROMCLK 
100400 
ROHCLK 

114377i<400»5> 



JSR 
2 

CMP 

BEQ 

HLT 

SC0P1 

MOV 



PCROMDAT 

R5.R4 
28 

6 



138, LOCK 
PCCLRALL 



|R1 CONTAINS BASE DMC11 ADDRESS 
t MASTER CLEAR DMC 1 1 
I IS IT CRAM? 
(SKIP TEST IF YES 

(CLEAR ALL CONDITIONS 

j NEXT WORD IS INSTRUCTION, ROMCLK Pd>5304 
j START AT ROM PC«0 

) NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
[JUMP TO ROM PC OF 1777 

(R5»EXPECTED ROM DATA, R4=ACTUAL ROM DATA 
I INDEX 

[ARE NEW PC CONTENTS CORRECT? 
[ BR IF YES 

! ERROR, CROM PC IS WRONG 
[LOOP TO 1$ IF SW09«1 
I NEW SC0P1 



JSR 
ROMCLK 
100403 
ROMCLK 

1 00000 1<400»5> 
JSR PC, ROM! 

10 
CMP 
BEQ 
HLT 
SC0P1 
MOV 



R5,F4 
4$ 
6 

158, LOCK 



{CLEAR ALL CONDITIONS 

j NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
j START AT ROM PC=3 

I NEXT WORD IS INSTRUCTION, ROMCLK PC»5J04 
I JUMP TO ROM PC OF 

T [RS"EXPECTED ROM DATA, R4sACTUAL ROM DATA 

I INDEX 

[APE NEW PC CONTENTS CORRECT? 
|BP IF YES 

(ERROR, CROM PC IS WRONG 
[LOOP TO 3$ IF SW09*1 
[NEW SC0P1 



JSR PC, C LP ALL 

ROMCLK 

100406 

ROMCLK 

1041J51<400»5> 
JSP PCROMDAT 
16 
CMP 
BEQ 
HLT 
SC0P1 
SCOPE 



R5,R4 

6« 

6 



[CLEAR ALL CONDITIONS 

I NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
I START AT ROM PC=6 

| NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
[JUMP TO ROM PC OF 525 

|R5«EXPECTED ROM DATA, R4s ACTUAL ROM DATA 
| INDEX 

| ARE NEW ROM PC CONTENTS CORRECT? 
I BR IF YES 

[ERROR, CROM PC IS WRONG 
[LOOP TO 5$ IF SW59*1 
I SCOPE THIS TEST 



[•»»•*#•••••»••#»»»»»#»»*»»» TEST 30 »•»♦»♦»•••»»•»»•••»••»»»»»» 

[•CROM TEST Or JUMPCI) ON BR4 SET MICRO-PROCESSOR INSTRUCTION, 

(•CLEAR THE BP4 BIT, PERFORM THE JUMP INSTRUCTION, 

(•VERIFY THAT THE JUMP DID NOT OCCUR BY READING 

(•THE CONTENTS OF THE NEW ROM PC(IT SHOULD INCREMENT BY ONE), 

( | •••»•••••••»•*••*•••»••••*•#••••••#••••»••••••*••»••••••♦••••• 

( TEST 30 
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2*> 1 4 








25 1 S 


023054 


012737 


000030 


29 1 6 


073062 


012737 


023244 


2817 


023070 


01 2737 


0231 10 


2918 








2919 


023076 


104412 




2820 


023100 


032737 


100000 


2M21 


0231 06 


001055 




2922 


023110 






29?3 


023110 


004737 


035430 


2974 


C73U4 


104414 




282* 


023116 


100400 




2976 


023120 


104414 




25 7 7 








2829 


023124 


004737 


035522 


292" 


023130 


000002 




2830 


0231 32 


020504 




29 31 


073134 


001401 




2932 


023136 


104006 




2933 


023140 


104401 




2«34 


023142 


012737 


023150 


2935 


023150 






28 ?6 


023150 


004737 


035430 


29 37 


023154 


10441 4 




29 3m 


0231 56 


100403 




2939 


023160 


104414 




7940 


023162 


103000 




29 4 1 


0231 64 


004737 


035522 


2842 


023170 


000010 




2943 


023! 72 


020504 




2944 


023174 


001401 




2945 


023176 


104006 




2946 


023200 


104401 




2947 


073202 


012737 


023210 


2849 


023710 






2849 


023210 


004737 


035430 


2850 


023214 


104414 




2851 


023716 


1 00406 




7857 


023220 


104414 




285^ 


023227 


107125 




2854 


073224 


004737 


035522 


2855 


073730 


000016 




2856 


073737 


020504 




2857 


023734 


0014O1 




2850 


073236 


104006 




2859 


023240 


104401 




2960 


023747 


1 04400 




2861 








78*7 








2S63 








2864 








286 5 








2855 








28*7 








2S6S 








785T 









16132 PAGE 56 

CROM JUMP TESTS 



PAGE: 0201 



2*1 
311 



4$( 
551 



MOV 
MOV 
MOV 

MSTCLR 

BIT 

BNE 



I30.TSTN0 
ITST31,NEXT 
111, LOCK 



*BIT15,STAT1 
61 + 2 



JSR PCCLRI 

ROMCLK 
100400 
ROMCLK 

1 '. 4377 ! <400*6» 
JSR ' PC, ROME 
2 

CMP 
BEQ 
HLT 
SC0P1 
MOV 



RS.R4 
2* 

6 



(Rl CONTAINS BASE DMC11 ADDRESS 
(MASTER CLEAR DMCll 
(IS IT CRAM? 
(SKIP TEST IF YES 

(CLEAR ALL CONDITIONS 

j NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
(START AT ROM PC=0 

(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
r .H)Mp TO ROM PC OF 1777 

(P5«EXPECTED ROM DATA, R4»ACTUAL ROM DATA 
(INDEX 

( ARE NEW PC CONTENTS CORRECT? 
(BR IF YES 

(ERROR, CROM PC IS WRONG 
(LOOP TO IS IF SW09*1 
(NEW SC0P1 



PCCLPALL 



JSR 
ROMCLK 
100403 
ROMCLK 

1000001<400»6> 
JSR PC, ROME 

10 
CMP 
BEQ 
HLT 
SC0P1 
MOV 



R5.R4 

48 

6 



JSR PCCLRS 

ROMCLK 

100406 

ROMCLK 

1041251<400»6> 



JSP 

16 

CMP 

BEQ 
HLT 
SC0P1 
SCOPE 



PCROMDAT 

R5,R4 
6$ 
6 



(CLEAR ALL CONDITIONS 
(NEXT WORD IS INSTRUCTION, ROMCLK PCe5304 
(START AT ROM PC=3 

(NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
(JUMP TO ROM PC OF 

T (R5=EXPECTED ROM DATA , R4= ACTUAL ROM DATA 

(INDEX 

(ARE NEW PC CONTENTS CORRECT? 
(BR IF YES 

(ERROR, CROM PC IS WRONG 
{ LOOP TO 3S IF SW09»1 
(NEW SC0P1 

L (CLEAR ALL CONDITIONS 

( NEXT WORD IS INSTRUCTION, ROMCLK PCs>5304 
[START AT ROM PC*6 

(NEXT WORD IS INSTRUCTION , ROMCLK PC»5304 
(JUMP TO ROM PC OF 525 

[R5«EXPECTE0 ROM DATA, R4s ACTUAL ROM DATA 
(INDEX 

(ARE NEW ROM PC CONTENTS CORRECT? 
(BR IF YES 

[ERROR, CROM PC IS WRONG 
[ LOOP TO 5S IF SW59=1 
I SCOPE THIS TEST 



•**»**»#♦**♦»»»*#*»»»»♦»*»*♦ TEST 31 *••*#»»»*♦♦#»#»♦•»♦»*»**»»» 

1»CP0M TEST OF JUMP(I) ON R87 SET MICRO-PROCESSOR INSTRUCTION, 

;*CIE«R THE BP7 BIT, PERFORM THE JIJ-P INSTRUCTION, 

l«VFRIFY THAT THE J"MP DIP NOT HCCl'P BY READING 

(•THE CONTENTS OF THK MEW Pnw PC (IT SHOULD INCREMENT SY ONE). 

,•(♦#♦•*#*#»#######»##**##*##**#* 
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2870 > TEST 31 

2871 



287? 


023244 


012737 


000031 


001226 


TST31I 


MOV 


*31,TSTN0 




2S73 


023252 


012737 


023434 


001216 




HOV 


STST32,NEXT 




2974 


023260 


012737 


023300 


001220 




MOV 


IIS, LOCK 




2875 














jp.i CONTAINS BASE CMC 11 ADDRESS 


287* 


0232*6 


104412 








MSTCLR 




{MASTER CLEAR DMC11 


2877 


023270 


032737 


100000 


001365 




BIT 


«BIT15,STAT1 


|IS IT CRAM" 


2873 


023276 


001055 








BNE 


6t+2 


(SKIP TEST IF YES 


2879 


023300 








IS: 








2880 


023300 


004737 


035430 






JSR 


PCCLRALL 


jCLEAR ALL CONDITIONS 


29 8 i 


023304 


104414 








ROHCLK 




;NEXT WORD IS INSTRUCTION, ROMCLK PCx5304 


28B7 


023306 


100400 








100400 




(START AT ROM PC=G 


286 3 


023310 


! 04414 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PC*S304 


2884 


023312 


1 17777 








U43771<400*7> 


(JUMP TO ROM PC OF 1777 


2885 


023314 


004737 


035522 






JSR 


PC, ROMDAT 


(RSaEXPECTED ROM DATA, H4=ACTUAL ROM DATA 


2886 


023320 


000002 








2 




1 INDEX 


2887 


023322 


020504 








CMP 


R5,P4 


1 ARE NEW PC CONTENTS CORRECT? 


28HH 


023324 


001401 








BEQ 


2S 


j BR IF YES 


288=) 


023326 


104006 








HLT 


6 


(ERROR, CROM PC IS WRONG 


2890 


023330 


104401 






281 


SC0P1 




(LOOP TO 1$ IF SW09=1 


289) 


023332 


012737 


023340 


001220 




MOV 


#38, LOCK 


(NEW SC0P1 


2R°2 


023340 








3s: 








2893 


023340 


004737 


035430 






JSR 


PCCLRALL 


; CLEAR ALL CONDITIONS 


2894 


023344 


104414 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 


2895 


023346 


100403 








100403 




( START AT ROM PC=3 


2896 


023350 


104414 








ROHCLK 




i NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 


2897 


023352 


103400 








1000001<400»7> (JUMP 


TO ROM PC OF 


289R 


023354 


004737 


035522 






JSR 


PC, ROMDAT 


(R5*EXPECTED ROM DATA, R4=ACTUAL ROM DATA 


2899 


023360 


000010 








10 




j INDEX 


2900 


023362 


020504 








CMr 


F5,R4 


i A£E. NEW PC CONTENTS CORRECT? 


2901 


023364 


001401 








BEO 


4S 


(BR IF YES 


2907 


023366 


1 04006 








HLT 


6 


jERROR, CROM PC IS WRONG 


2903 


23370 


104401 






4SI 


SC0P1 




! LOOP TO 3S IF SW09=1 


2904 


023372 


012737 


023400 


001220 




MOV 


*5«,L0CK 


(NEW SC0P1 


2905 


023400 








5$: 










t ' £ 3 ** U U 


0047 37 


035430 






JSR 


PCCLRALL 


tCLEAR ALL CONDITIONS 


2907 


023404 


104414 








ROHCLK 




( NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


2908 


023406 


100406 








100406 




•START AT ROM PC»6 


2909 


o?34io 


104414 








ROMCLK 




1 NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


291 


02341? 


107525 








104125!<400»7> 


(JUMP TO ROM PC OF 525 


291 1 


02 341 4 


004737 


035522 






JSR 


PC? ROMDAT 


jR5»EXPECTED ROM DATA, R4sACTUAL ROM DATA 


291 7 


023420 


000016 








16 




) INDEX 


291 5 


023422 


020504 








CMP 


R5,P4 


1 ARE NEW ROM PC CONTENTS CORRECT? 


2914 


02342* 


001401 








BEO 


68 


( BR IF YES 


2915 


023426 


104006 








HLT 


6 


( ERROR, CROM PC IS WRONG 


291*. 


023430 


104401 






6Sl 


SC0P1 




jLOOP TO 5S IF SW59=1 


2917 


023432 


104400 








SCOPE 




J SCOPE THIS TEST 



291» 
2919 

29 20 ( **«**»*«♦»»***♦*»*»***»***» TEST 32 *»»*«»*»**»******»****»**»* 

29?1 t»CRAM TEST OF JUHPilj SEVER MICRO-PROCF.SSCR INSTRUCTION. 

292? j*PERFORM THE JUMP INSTRUCTION 

292 3 j»VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 

292" J*IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 

2925 >»BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
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2»2ft 








2927 








292P 








292" 








2930 








2931 








293? 








2933 


023434 


012737 


000032 


2934 


02344? 


012737 


023630 


293S 


O23450 


012737 


023474 


29 36 








2937 


023456 


104412 




293* 


023460 


032737 


100000 


2930 


023466 


001457 




294o 


023470 


004737 


035654 


2941 


023474 






2942 


023474 


004737 


035430 


2943 


02350O 


104414 




2944 


023502 


100400 




2945 


023504 


104414 




294* 


023506 


114377 




2947 


023510 


004737 


035550 


294 = 


02351 4 


000001 




2940 


023516 


120504 




2950 


023520 


001401 




2951 


023522 


104005 




295? 


023524 


104401 




2953 


023526 


012737 


023534 


2954 


023534 






2955 


023534 


004737 


035430 


2956 


023540 


104414 




2957 


073542 


100403 




2958 


023544 


104414 




2959 


023546 


100000 




2°6o 


023550 


004737 


035550 


?9A 1 


023554 


000004 




296? 


023556 


120504 




2963 


023560 


001401 




2964 


073562 


104005 




296=1 


2 356 4 


i 04401 




2966 


023566 


012737 


023574 


2967 


023574 






296fi 


023574 


004737 


035430 


2969 


023600 


10441 4 




2970 


023602 


100406 




297 1 


023604 


10441 4 




297? 


023606 


1041 25 




2973 


023610 


004737 


035550 


297 1 


02361 % 


000007 




297^ 


0236)6 


170504 




297* 


02362" 


001 101 




?977 


023622 


104005 




297S 


023624 


104401 




2979 


02367* 


104400 




29$'! 









2$: 
3$: 



4s: 

5S1 



(•THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS CORRECT 
} »THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
I »THEN P0RT4 CONTAINS A 37 

I t **#»»###«#*»*******»#*»*»#*»»#**♦»»*»*»*»*»*»»»*»*»*♦*«*»**»«* 



> TEST 


32 






MOV 


#32,TSTNO 






MOV 


#TST33,NEXT 






MOV 


#1$,L0CK 










(PI CONTAINS BASE DMC11 ADDRESS 


MSTCLR 




J MASTER CLEAR DMC11 




BIT 


»BIT15,STAT1 


jIS IT CRAM? 




BEQ 


6S+2 


iSKIP TEST IF NO 




JSR 


PCMEMSET 


jSET MEM AND RAM 




JSR 


PCCLRALL 


TCLEAR all conditions 




ROMCLK 




(NEXT WORD IS INSTRUCTION, 


ROMCLK 


100400 




S START AT ROM PC=0 




ROMCLK 




( NEXT WORD IS INSTRUCTION, 


ROMCLK 


114377! 


<400»0> 


?JUMP TO ROM pc OF 1777 




JSR 


PC, RAMDAT 


[R4»CRAM PC (LSB R BITS) 




1 




; EXPECTED DATA 




CMPR 


R5,R4 


jIS ROM PC CORRECT? 




BEO 


2$ 


(BR IF YES 




HLT 


S 


(ERROR, CRAM PC IS WRONG 




SC0P1 




(LOOP TO 1$ IF SW09*1 




MOV 


t3S,L0CK 


(NEW SC0P1 




JSR 


PCCLRALL 


(CLEAR ALL CONDITIONS 




ROMCLK 




(NEXT WORD IS INSTRUCTION, 


ROMCLK 


100403 




(START AT ROM PC*3 




ROMCLK 




(NEXT WORD IS INSTRUCTION, 


ROMCLK 


100000l<400#0> 1 JUMP 


TO ROM PC OF 




JSR 


PC, RAMDAT 


|R4"CRAM PC (LSB 8 BITS) 




4 




(EXPECTED DATA 




CWPB 


R5»p4 


I IS RuK FC CGnRECT? 




BEQ 


4$ 


(BR IF YES 




HLT 


5 


; ERROR, CRAM PC IS WRONG 




SCOP! 




(LOOP TO 3S IF SW09=1 




MOV 


*5$,L0CK 


(NEW SC0P1 




JSR 


PCCLRALL 


(CLEAR ALL CONDITIONS 




ROMCLK 




(NEXT WORD IS INSTRUCTION, 


ROMCLK 


100406 




(START »T ROM PC=6 




ROMCLK 




( NEXT WORD IS INSTRUCTION, 


ROMCLK 


104125!<400#0> 


(JUMP TO ROM PC OF 525 




JSR 


PC t RAMDAT 


;P4*CRAM PC f LSB 8 BITS) 




7 




(EXPECTED DATA 




CMPP 


R5,R4 


;TS POM PC CORRECT? 




BEQ 


6S 


; RR IF YES 




HIT 


5 


(fc.PROR, CRAt' PC IS WRONG 




SC0P1 




(LOOP TO 55 IF SKf50 = 1 




SCOPE 




; SCOPE THIS TEST 
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29R2 






29R3 






298 1 






29R5 






29R6 






2987 






2988 






2989 






290C 






29«1 






2992 






2091 






2991 






2995 


023630 


012737 


2996 


023636 


012737 


2997 


023644 


01 2737 


299R 






2990 


023652 


104412 


3000 


023654 


032737 


3001 


023662 


001451 


3002 


023664 


004737 


3003 


023670 




3004 


023670 


10441 4 


3005 


023672 


100400 


3006 


023674 


10441 4 


3007 


023676 


114777 


3008 


073700 


004737 


3009 


023704 


000377 


3010 


023706 


120504 


301 l 


023710 


001401 


301 2 


023712 


104005 


301 3 


023714 


104401 


301 4 


023716 


012737 


3015 


023724 




3016 


023724 


104414 


301 7 


023726 


100403 


301 R 


023730 


104414 


3019 


023732 


100400 


3070 


023734 


004737 


3021 


0'374O 


000000 


30?? 


023742 


1 20504 


3023 


023744 


001 401 


3074 


023746 


1O4005 


3025 


023750 


104401 


3025 


023752 


012737 


3027 


023760 




302« 


023760 


104414 


3"20 


023762 


100406 


3030 


023764 


10441 4 


303 1 


023766 


1 04525 


3c 3? 


023770 


004737 


3»" 


023774 


000125 




023776 


120504 


3"15 


024000 


001401 


30i6 


n?4002 


104005 


3 37 


024004 


1 O4401 



000033 001226 
024010 001216 
023670 001220 



100000 001366 
035654 



TST33: 



023724 001220 



2$t 
3St 



023760 001220 



4St 
581 



I »#*#»*•»*#*»»*♦#***»»*#**** TEST 33 »«*»*»••»*•♦♦»«•»»»»»•••••» 

l*CRAM TEST OF JUMP(I) ALWAYS MICRO" PROCESSOR INSTRUCTION, 
[•PERFORM THE JUMP INSTRUCTION 

(•VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
[•IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 
[•BR WITH THE LOWEST 8 BITS OF THE CRAM PC. AT THIS POINT 
I *THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS CORRECT, 
[•THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
>»THEN P0RT4 WILL CONTAIN A 37 

1 1 ##»»##»#########■»»••»»»«••»»»*•»••*«•♦••••»»**•••»•♦»•»•»••»•» 

1 TEST 33 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BEQ 
JSR 



f 33.TSTNO 
tTST34, NEXT 
11$, LOCK 



•BIT15,STAT1 
68+2 

PC»MEMSET 



ROMCLK 
100400 
ROMCLK 

114377l<400»i> 
JSR PCRAMC 
377 
CMPB 
BEQ 
HLT 
SC0P1 
MOV 



R5.R4 
2* 

S 



ROMCLK 
100403 
ROMCLK 

100000t<400»l> 



JSR 



CMPB 

BEO 

HLT 

SC0P1 

MOV 



PCRAMDAT 

R5,R4 
48 
5 



;JUMP TO 



ROMCLK 
100406 
ROMCLK 

104125!<400*1> 
JSR PCRAMC 
125 
CMPB 
BF.Q 
HLT 
SC0P1 



R5,P4 

6* 

S 



Rl CONTAINS BASE DMCU ADDRESS 
MASTER CLEAR CMC 11 
IS IT CRAM? 
SKIP TEST IF NO 
SET MEM AND RAM 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
START AT ROM PC=0 

NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 

JUMP TO ROM PC OF 1777 

R4=CRAM PC CLSB R BITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO IS IF SW09*i 
NEW SC0P1 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
START AT ROM PC=3 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
ROM PC OF 

R4=CRAM PC (LSB 8 BITS) 
EXPECTED DATA 
IS ROM PC CORRECT? 
BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 38 IF SW09«1 
NEW SC0P1 

NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
START AT ROM PC=6 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

JUMP TO ROM PC OF 525 

R4BCRAM PC CLSB 8 BITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 58 IF SW59*1 
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30 '8 


024006 


1 04400 




3039 








3040 








3041 








304? 








30 1! 








304 1 








3015 








3 46 








3047 








304S 








30 4<5 








3 050 








3 05 1 








3052 








3053 








3054 


02401O 


012737 


000034 


3055 


074016 


012737 


024204 


3056 


0?40?4 


012737 


024050 


3057 








3058 


024032 


104412 




3f>59 


024034 


032737 


100000 


30hO 


024042 


001457 




3"61 


O24044 


004737 


035654 


316? 


02405O 






3063 


02405O 


0047 37 


035476 


3064 


024054 


1 04414 




1065 


024056 


1 00400 




3066 


024060 


t04414 




3067 


024062 


115377 




3068 


074064 


004737 


035550 


3069 


024070 


000377 




3070 


024072 


120504 




307 1 


024074 


001401 




3072 


024076 


104005 




307 3 


024100 


104401 




3074 


024102 


012737 


024110 


3075 


O74U0 






3076 


024110 


004737 


035476 


3077 


024114 


104414 




3178 


02411ft 


100403 




3079 


024120 


1 04414 




1080 


024122 


101000 




3001 


024124 


004737 


035550 


30P2 


024130 


000000 




308 3 


024132 


1 20504 




3084 


024134 


ml 401 




30R5 


024136 


104005 




3086 


024140 


104401 




3087 


074142 


012737 


074150 


3080 


074150 






30R9 


034150 


004737 


035476 


inqp 


074 154 


10 4 414 




3091 


024156 


1 H0406 




1102 


7-1160 


10 4114 




J">93 


"74 1 62 


i r 5 1 2 5 
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001226 
001216 



2SI 
38 t 



4* ! 

5S : 



[SCOPE THIS TEST 



[****»♦♦»•♦»#»•#••»*•»*»•»•• TEST 34 ••••*•»•»•«»»••*»•**♦«»»••* 

[•CRAM TEST OF JUMP(I) ON C BIT SET MICRO-PROCESSOR INSTRUCTION, 
[•SET THE C BIT, PERFORM THE JUMP INSTRUCTION, 
I»VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
(•IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
l«BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
( *THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS COPRECT, 
(•THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
(•THEN P0RT4 WILL CONTAIN A 37 

( [*»»•**•••»••«•»*»•*»»*••»»•*••»»•»#•»»•»•»•♦»»»••*•»»•»•••»••* 

I TEST 34 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BEQ 
JSR 



#34,TSTNO 

8TST35,NEXT 

*lt,LOCK 



»BIT15,STAT1 
68 + 2 

PCMEMSET 



(Pi CONTAINS BASE DMCli ADDRESS 
(MASTER CLEAR DMCU 
(IS IT CRAM? 
(SKIP TEST IF NO 
(SET MEM AND RAM 



JSR 

ROMCLK 
100400 
ROMCLK 

114377!<400»2> 



JSR 

377 

CMPB 

BEQ 

HLT 

SC0P1 

MOV 



PCSETC ( SET THE C BIT' 

(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
(START AT ROM PC=0 

(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
(JUMP TO ROM PC OF 1777 
(R4sCRAM PC (LSB 8 BITS) 
(EXPECTED DATA 
j IS ROM PC COPRECT? 
[BR IF YES 

[ERROR, CRAM PC IS WRONG 
[LOOP TO IS IF SW09=1 
I NEW SC0P1 



PCRAMDAT 

R5.R4 

2$ 

5 

OS, LOCK 



PCSETC 1 SET THE C BIT* 

I NEXT WORD IS INSTRUCTION, ROMCLK PC>»5304 
(START AT ROM PC = 3 

[ NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
100000i<400»2> ; JUMP TO ROM PC OF 
JSP PCRAMDAT [R4=CRAM PC CLSB 8 BITS) 

(EXPECTED DATA 

R5,R4 (IS ROM PC CORRECT? 

48 I BR IF YES 

5 [ERROR, CRAM PC IS WRONG 

fLOOp TO 3S IF SW09*1 
»5S,L0CK [NEW SC0P1 



JSR 

ROMCLK 
100403 
ROMCLK 



CMPB 
BEQ 
HLT 
SC0P1 

MOV 



PCSETC [SE - 



JSR 
ROMCLK 
1 00406 
PPMflK 

1 04 1 25 ! <4no»2> 



THE C BIT' 

[NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 
[START AT POM PC=6 

[WF.XT WORD IS INSTRUCTION, RO«CLK PC«5304 

j.U.'Mp TP B0» PC OF 525 



DZD M H MACYU 27(1006) 14-DEC-76 16(32 PAGE 61 
DZPMH.Pli 09-0EC-76 14159 CRAM JUMP TESTS 



PAGE! 0206 



3094 
3095 
3096 
3097 
jnoe 
1099 
3100 
3101 
3102 
3103 
3104 
310-5 
3106 
3107 
310(1 
3109 
3110 
3111 
3112 
3113 
3114 
31 16 
3116 
3117 

3 1 1 n 

31 19 
31 ?0 
3121 
3122 
3123 
3124 
3125 
3' 26 
3127 
31 29 
3179 
31 30 
3131 
3132 
3133 
31 34 
31 36 
3136 
31 37 
31 3 8 
31 39 
31 40 
3141 
31 42 
3143 
3144 
3146 
31 46 
31 47 
31 48 
31 49 



024164 
024170 
024172 
074174 
024176 
024200 
024202 



024204 
024212 
024220 

074226 
024230 
074236 
O74240 
024244 
024244 
074250 
024252 
024254 
024256 
O24260 
074264 
024266 
024270 
024272 
024274 
074276 
024304 
O24304 
024310 
024312 
024314 
024316 
074320 
074324 
074326 
0741 JO 
024332 
024334 
074336 



004737 
000125 
120504 
001401 
104005 
104401 
104400 



012737 
012737 
012737 

114412 
032737 
001457 
004737 



104414 
100400 
104414 
1)5777 
004737 
000377 
120504 
001401 
1 04005 
104401 
01 27J7 

004737 
104414 
100403 
104414 
101400 
004737 
000000 
120504 
0O140J 
104005 
104401 
012737 



000035 001226 
024400 001216 
024244 001220 



100000 001366 
035654 



024304 001220 
035514 



28 r 
3$l 



JSP PC , RAMDAT »R4«CPAM PC { LSB 8 BITS) 

125 [EXPECTED DATA 

CMPB B5iP4 JIS BOH PC CORRECT? 

BEQ 6$ jBR IF YES 

HLT S (ERROR, CRAM PC IS WRONG 

SC0P1 (LOOP> 10 58 IF SW59«i 

SCOPE | SCOPE THIS TEST 



I »•»»#»*•#»»•*••*•*•»♦»»•»»• TEST 35 •***«•*••»*•»*•»*»»»#***### 

(•CRAM TEST OF JUMPCI) OH I BIT SET MICRO-PROCESSOR INSTRUCTION , 
j»SET THE Z BIT, PERFORM THE JUMP INSTRUCTION, 
(•VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
(•IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
»«BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
(•THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS CORRECT, 
I »THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
[•THEN P0RT4 WILL CONTAIN A 37 

) t •*•*•••*••••*»•••»•••••••••••••••••••••••••••••••••••••••••••* 



J TEST 35 



TST35 1 MOV 
MOV 
MOV 



MSTCLR 
BIT 
BEQ 
JSR 



*35,TSTNO 

#TST36,«EXT 

tlS.LOCK 



tBIT15,STATl 
6»+2 

PCMEMSET 



[Rl CONTAINS BASE DMC11 ADDRESS 
[MASTER CLEAR DMCU 
;IS IT CRAM? 
[SKIP TEST IF NO 
j SET MEM AND RAM 



ROMCLK 
100400 
ROMCLK 

114377i<400«3> 



PC, SET* ; SET THE Z BIT* 



JSR 

377 

CMPB 

BEQ 

HLT 

SCOPi 

MOV 



PC, RAMDAT 

R5,R4 

2$ 

5 

*3t,L0CK 



[NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
j START AT ROM PC«0 

(NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 

I JUMP TO ROM PC OF 1777 

[ R4»CRAM PC (LSB 8 BITS) 

(EXPECTED DATA 

»IS ROM PC CORRECT? 

(BR IF YES 

(ERROR, CRAM PC IS WRONG 
(LOOP TO IS IF SW09*1 
(NEW SCOPI 



JSR 

ROMCLK 
100403 
ROMCLK 

100000!<400»3> 



024344 001220 



JSR 


CMPB 

BEQ 

HLT 

SCOPI 

MOV 



PC,SETZ (SET THE Z BIT* 

I NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
(START AT ROM PC=3 

(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

ROM PC OF 
(R4»CRAM PC (LSB 8 BITS) 
) EXPECTED DATA 
(IS ROM PC CORRECT? 
•BR TP Ygs 

(ERROR, CRAM PC IS WRONG 
(LOOP TO 3S IF SW09»1 
(NEW 5C0P1 



(JUMP TO 
PC, RAMDAT 



R5,R4 

4S 



I5» ,LOCK 
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14(59 


3150 


074344 






3151 


024344 


004737 


035514 


3167 


024350 


104414 




3 IS 3 


074352 


100406 




3154 


024354 


104414 




3156 


024356 


105525 




3156 


024360 


004737 


035550 


3157 


024364 


000125 




31SS 


024366 


120504 




3 1 59 


024370 


001401 




3160 


024372 


104005 




3161 


024374 


104401 




3162 


024376 


104400 




3163 








3164 








31 66 








3166 








3'67 








3168 








31 69 








3170 








3172 








3173 








3174 








3175 








3176 








3177 








3178 


024400 


012737 


000036 


3179 


024406 


012737 


024574 


3JP0 


"24414 


012737 


024440 


3161 








3182 


074422 


104412 




3 1 S 3 


024424 


032737 


100000 


3104 


074432 


001457 




3185 


024434 


004737 


035654 


3186 


024440 






3 1 H 7 


024440 


004737 


035446 


31 SP 


074444 


104414 




3189 


024446 


1 no400 




3 1 on 


024450 


1044 14 




3191 


024452 


116377 




3192 


024454 


004737 


035550 


31 93 


024460 


000377 




31°4 


024462 


120504 




31 06 


024464 


001401 




31 96 


024466 


1 (14005 




3197 


024470 


t"4401 




3190 


024472 


01 2737 


0245on 


3 1 99 


024500 






37"0 


074500 


0*14737 


035446 


32"1 


024504 


104414 




37"7 


O24506 


100403 




3 70 3 


024510 


10 4 414 




37^4 


074512 


1 .12000 




3?"6 


07451 4 


004737 


03565D 
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2 S I 
3S! 



JSR 

ROMCLK 
100406 
ROMCLK 

104125l<400»3> 



JSR 

125 

C»PB 

BEQ 

HLT 

SCOPI 

SCOPE 



PCfSETZ (SET THE Z BIT* 

(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
(START AT ROM PC = 6 

(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
(JUMP TO ROM PC OF 525 
|R4«CRAW PC (L5<? 8 SITS) 
(EXPECTED DATA 
(IS ROM PC CORRECT? 
(BR IF YES 

(ERROR, CRAM PC IS WRONG 
(LOOP TO 5S IF SW59*1 
(SCOPE THIS TEST 



PC , RAKDAT 

R5,F4 

61 

5 



[••*•*••••••*••••••••*•••••# TEST 36 »»»*»♦•»»»••»•»•*»*»»»♦•»»* 

(♦CRAM TEST OF JUMp(I) ON BPO SET MICRO-PROCESSOR INSTRUCTION. 
(•SET THE BRO BIT, PERFORM THE JUMP INSTRUCTION, 
(•VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
(•IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
{•BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
[•THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS CORRECT, 
[•THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
(•THEN P0RT4 WILL CONTAIN A 37 

[ 1 ••••••••••••••*••••••••••••••••••••••••••••••••••»*••*•*«•••»« 

( TEST 36 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BEQ 
JSR 



I36.TSTNO 
#TST37,NEXT 
11$, LOCK 



»BIT15,STAT1 
68+2 

PCMEMSET 



[Rl CONTAINS BASE DMCU ADDRESS 
) MASTER CLEJtP DMCU 
[IS IT CRAM? 
[SKIP TEST IF NO 
(SET MEM AND PAM 



ROMCLK 
100400 
ROMCLK. 

114377I<400»4> 
JSR PC, rami: 
377 
CMPB 

BEQ . 
HLT 
SCOPI 
MOV 



R5,R4 

2$ 

5 



JSR POSETE 

ROMCLK 

1 00403 

fiOICLK 

100000!<400»4> 
JSC PC.KAMr 



(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
I START AT ROM PC = 

(NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
[ JUMP TO ROM PC OF 1777 
IT |P4*CRAM PC CLSB 8 BITS) 

[EXPECTED DATA 
t IS ROM PC CORRECT? 
1 BR IF YES 

[ERROR, CRAM PC IS WRONG 
) LOOP TO IS IF SW09=1 
: [NEW SCOPI 

>0 1 SET THE BRO BIT' 

; NEXT WORD IS INSTRUCTION, ROMCLK PCs5304 
[START AT ROM PC=3 

;'JEXT '*1RD IS INSTRUCTION, ROMCLK PC«5304 
[JU M P TO ROM PC OF 
<T ;R4=CRA" PC CLSM R BITS) 
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3206 


O24520 


000000 




3707 


024522 


120504 




320R 


024524 


001 401 




3209 


024526 


1 04005 




3210 


074530 


104401 




3211 


024532 


012737 


024540 


3212 


024540 






3713 


074540 


004737 


035446 


371 4 


0J4544 


104414 




3215 


074546 


100406 




3216 


024550 


104414 




3217 


024552 


106125 




321P 


024554 


004737 


035550 


3719 


024560 


0O01 25 




3770 


024562 


170504 




3771 


024564 


001401 




3222 


024566 


104005 




3273 


024570 


104401 




3724 


024-572 


104400 




3775 








3276 








3777 








3773 








3729 








32*0 








3231 








3237 








3733 








37 34 








323"; 








3736 








3237 








3230 








3219 








3740 


024574 


01 7737 


000037 


324) 


024602 


012737 


024770 


3747 


024610 


01 7737 


024634 


3743 








3244 


074616 


104412 




3745 


074620 


032737 


100000 


3246 


024626 


001457 




3747 


P24630 


00*737 


035654 


374R 


074634 






3249 


024634 


004737 


035454 


3750 


074640 


104414 




3751 


024642 


100400 




3 75 2 


074644 


104414 




3753 


024646 


116777 




375A 


024650 


054737 


035550 


3755 


074654 


000377 




3756 


074656 


170504 




3757 


024660 


001401 




3759 


"24662 


104005 




17*0 


074664 


104401 




3260 


024666 


012737 


024674 


32* 1 


074674 







4$: 

5tl 








j EXPECTED DATA 


CMPB 


R5,R4 


j IS ROM PC CORRECT? 


BEQ 


4S 


j BR IF YE 5 


HLT 


5 


(ERROR, CRAW PC IS WRONG 


SCOP1 




(LOOP TO 3$ IF SW09«1 


MOV 


15*. LOCK 


j NEW SC0P1 


JSP. 


PCSETBRO 


(SET THE BRO BIT' 


ROMCLK 




; NEXT WORD IS INSTRUCTION 


100406 




j START AT ROM PC»6 


ROMCLK 




jNEXT WORD IS INSTRUCTION 


1041251<400*4> 


(JUMP TO ROW PC OF 525 


JSP. 


PC.RAMDAT 


(R4"CRAM PC (LSB 8 BITS) 


125 




; EXPECTED DATA 


CMPB 


R5,R4 


(IS ROM PC CORRECT? 


BEQ 


6» 


(BR IF YES 


HLT 


5 


f ERROR, CRAM PC IS WRONG 


SC0P1 




jLOOP TO 5$ IF SW59»1 


SCOPE 




1 SCOPE THIS TEST 



ROMCLK PC«S304 
ROMCLK PC«5304 



(••••••••••••••ft************ TEST 37 »•*»••*»»•••»»♦«»»•»»»»•«•• 

(•CRAM TEST Or JUMPCI3 ON BR1 SET MICRO-PROCESSOR INSTRUCTION, 
(•SET THE BP1 BIT. PERFORM THE JUMP INSTRUCTION, 
(•VERIFY THE JUMP DID OCCUR BY CLOCKING THE INSRUCTION 
(•IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
(•BP WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
(•THE BR DATA 15 MOVED TO P0RT4, IF THIS DATA IS CORRECT, 
(•THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
(•THEN P0PT4 WILL CONTAIN A 37 

1 1 •»•*•»*•••»••••»»•«»•»»»»•»»•*«»»»»»•»»»»»*»»»*»•»»»»»»•»•»••» 

» TEST 37 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BEQ 
JSP 



I37,TSTN0 
#TST40,NEXT 
ill, LOCK 



#BIT15,STAT1 
6*+2 

PCMEMSET 



2SI 

3S! 



JSR PCSETE 

ROMCLK 

100400 

ROMCLK 

114377l<400»5> 
JSR PCRAMC 
377 
CMPB 
BEQ 
HLT 
SC0P1 
MOV 



R5.R4 

2$ 

5 



jRl CONTAINS BASE DMC11 ADDRESS 

f MASTER CLEAR DMCll 

(IS IT CRAM? 

J SKIP TEST IF NO 

(SET MEM AND RAM 

jSET THE BR1 BIT' 

I NEXT WORD IS INSTRUCTION, ROMCLK PC = 5304 
j START AT ROM PC=0 

(NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 

(JUMP TO ROM PC OF 1777 

»R4«CRAM PC (LSB 8 BITS) 

I EXPECTED DATA 

(IS ROM PC CORRECT? 

| BR IF YES 

( ERROR, CRAM PC IS WRONG 
(LOOP TO 1$ IF SW09*1 
(NEW SC0P1 
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3767 
32*3 
32M 
326* 
17*6 
3767 
32*8 
3769 
3770 
377 1 
3772 
3773 
3274 
3275 
3276 
1277 
377P 
3779 
37*0 
37«1 
32«7 
17*3 
3784 
32S5 
37fl6 
3787 
32BB 
3?fi° 
3790 
32<M 
3797 
3 79 3 
3794 
3795 
3796 
3797 
37 = 
3799 
3300 
3 301 
3107 
3 303 
3 304 
330S 
3306 
3 307 
3109 
3309 
I'll 
531 I 
1312 
3313 
1314 
3? t 5 
3 3 1 6 



074674 
074700 
O74702 
O74704 
O74706 
074710 
074714 
024716 
074720 
074722 
074724 
024726 
074734 
024734 
074740 
074742 
074744 
074746 
024750 
024754 
024756 
O24760 
074762 
024764 
024766 



024770 
024776 
075004 

07501 2 
02501 4 
075022 
025024 
025030 
025030 
025034 
025036 
025040 
n?*042 
025044 
12«Q50 



004737 
104414 
100403 
1 4 414 
102400 
004737 
000000 
120504 
0O1 401 
104005 
104401 
012737 

> i 4, 7 3 7 
104414 
100406 
104414 
106525 
004737 
000125 
120504 
001 401 
1 04005 
104401 
1 04400 



PCSETBR1 



01 2737 
0) 2737 
012737 

104412 
037737 
00 1457 
0047 37 

004737 
10 4 414 
1 10400 
10 4 4)4 
U 7 37 7 
"0 17.37 



024734 001220 



4SI 
5S( 



000040 001226 
025164 001216 
025030 001220 



100000 001366 

035654 

035452 



JSR 

ROMCLK 
100403 
ROMCLK 

1000001<40Q»5> 



; SET THE BR1 BIT' 

(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
(START AT ROM PC=3 

(NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
(JUMP TO ROM PC OF 



JSR 



CMPB 

BEQ 

HLT 

SC0P1 

MOV 



PCPAMDAT 

P5,R4 
4$ 
5 

158, LOCK 

JSR PC) SETBP! 

ROMCLK 

100406 

ROMCLK 

104125!<400«S> 
JSR PCPAMDAT 
125 
CMPB 
BEQ 
HLT 
SC0P1 
SCOPE 



R5,R4 

61 

5 



( R4»CRAM PC (LSB 8 BITS) 

( EXPECTED DATA 

(IS ROM PC CORRECT? 

I BR IF YES 

; ERROR, CRAM PC IS WRONG 
(LOOP TO 3$ IF SW09OJ 
(NEW SC0P1 

f SET THE BR1 BIT* 

(NEXT WORD IS INSTRUCTION, 

(START AT POM PCs6 

; NEXT WORD IS INSTRUCTION, 

(JUMP TO ROM PC OF 525 

(R4cCRAM PC (LSB 8 BITS) 

(EXPECTED DATA 

(IS ROM PC CORRECT? 

(BR IF YES 

(ERROR, CRAM PC IS WRONG 
(LOOP TO 5S IF SW59»1 
( SCOPE THIS TEST 



ROMCLK PC»5304 
ROMCLK PC»5304 



(»•*••»•»»•»•»•»•»»»♦•»»»••• TEST 40 ••••••••••••••••••••••*•••• 

(•CRAM TEST OF JUMp(I) ON BP4 SET MICRO-PROCESSOR INSTRUCTION, 
(•SET THE BP4 BIT, PERFORM THE JUMP INSTRUCTION, 
(•VERIFY THE JUMp DID OCCUR BY CLOCKING THE INSRUCTION 
(♦IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
(•BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
(•THE BR DATA IS MOVED TO P0RT4. IF THIS DATA IS CORRECT, 
( •THE JUMP WAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL 
(•THEN P0RT4 WILL CONTAIN A 37 

( 1 ••*•••••••••••••••••••••*••*•••••«•••••••••••••••••••••••••••• 

) TEST 40 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BEQ 
JSR 



#40,TSTNO 
ifST41,NEXT 
lit, LOCK 



IBIT15, STAT1 
61 + 2 

PCMEMSET 



JSR PC , SETBR4 

P M C Tj K 

100400 
ROMCLK 

1 14377!<400*6> 
JSR PC,PA«n»T 

in 



(PI CONTAINS BASE DMC 1 1 ADDRESS 

(MASTER CLEAR DMCll 

(IS IT CRAM? 

5 SKIP TEST IF NO 

! SET MEM AND RAM 

; SET THE BP4 BIT' 

'NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
: START AT ROM PC=0 

(NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
(.TUMP TO RO" PC OF 1777 
(R4=CPAM PC (LSB ft BITS) 
! fXPl CT' T DSTA 
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27C 10063 
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3 3 1 B 


025052 


120504 




•„■-•. 


3 319 


025054 


001401 








075056 


104005 






3 321 


025060 


104401 




2ti~ 


33?? 


075062 


0) 2737 


025070 001220 . 




3 32 3 


(125070/ 


•:.c'.\ -i..: 




3Si 


3124 


025070 


004737 


035462 




3325 


025074, 


-:.*044J4.. 






3 326 


025076 


100403 






3327 


025 100 


104414 


CP; 




3378 


025102 


103000 






332? 


025104 


004737 


035550 




3 3 30 


0251 10 


000000 






3 3 3 1 


025112 


120504 


5 1 ' 






025114 


001401 






3 33 3 


025116 


104005 






3 334 


025120 


104401 




4$ J s 


3335 


025122 


012737 


025130 ? .,00:1220, 






0251.S1; 




035462 


'Wj'/ ■ 


3 3 37 


025130 


0047 37 


3 3 3 8 


025KI4:.?El3»44Sj4- 


':i's ,. ':. 1 




3 3 39 


025136 


100406 






3 3 4 


025140 


104414 






3 3 4 3 


025142 


107125 






3 3 42 


025144 


004737 


035550 




3 3 4 3 


075150 


000125 








025152 


1 20504 








025154 


001401 








025156 


104005 








025160 


1 04401 




6$: ' 




025162 


104400 
















3 350 










3 35 1 










3 35 2 










3 35 3 










3 35 4 










3 355 










3 356 










3357 










3 35S 










3359 










3360 










3 361 










3 36? 










3 36 3 






-, ,:V. .- :. ... ■', , ■ 




3 364 


025164 


0127 37 


00041c - 001226 


TST4U. 


3365 


025172 


01273?, 


025360- _ 001216 




3366 


075200 


01 27 37: 


, 025224 * 001 220' 




3367 










336 = 


075206 


1 04412" 






3 169 


025210 


012737, ■ 


• tOOOOO - 0.01366 




3370 


02521 6 


001 457 






337 1 


025240- 


OAA.7 37 


•035654 




337? 


025224 






IS I 


337 3 


075224 


004737 


035470 
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CHPB 

BEQ 

HI.T 

SC0P1 

MOV 



R5,R4 
2S 

I3S.L0CK 
PCSETBK4 



j IS ROM PC CORRECT? 
I BR IF YES 

S ERPORf CRAM PC IS WRONG 
(LOOP TO IS IF SW09»1 i. 
jNEW'SCOPl 



J5R PC» SETBS4 |SET THE BR4 BIT' ^ , , , 

ROMCLK S NEXT WORD IS INSTRUCTION, ROMCLK PC*3 384 •. 

100403 : " > START AT ROM PC«3 4 =t ■■>■ ■ 

ROMCLK <i»5f* . j NEXT WORD IS INSTRUCTION, ROMCLK PC»5 304- 

100000t<400*6> j JtJMP TO ROM PC OF 



JSR 


CMPB 

BEQ 

HIiT 

SCOPl" 

MOV 



PCRAMDAT 

R5.R4 
41 

5 , . - ; 
#5S,L0CK 
PC, SETBF4 



JSR 

ROMCLK ' -* 

.10Q406 , 

ROMCLK. 51 ' v » >: '-' f * 
l&4125i"<40O»iS> 
JSR PC,RAMDAT 
125 

CMPB R5,*R4 
BEQ 6* : ' 

HLT „, 5 

scopi' •»** 

SCORE , „ 



«R4»CRAM PC (LSB 8 BITS) 

> EXPECTED DATA 

jIS ROM PC CORRECT? 

I BR IF YES 

; ERROR, CRAM PC IS WRONG 
(LOOP TO 3S IF SW09*1 
jWE'W* 3C0P1 

(SET THF BR4 BIT' 

J NEXT WORD IS INSTRUCTION, 

( START AT ROM PC=6 

I NEXT WORD IS INSTRUCTION, 

I JUMP TO ROM PC OF 525 , ; ? 

;R4aCRAM PC (LSB 8 BITS) 

I EXPECTED DATA 

jIS ROM PC CORRECT? 

I BR IF YES 

(ERROR, CRAM PC IS WRONG 
I MOP TO 5S IFf S«CS9«l . ,■> > 



ROMCLK PC«5J04 
ROMCLK PCe5 304 



•#**♦*»**•»♦»**«**«*##***»** TEST 41 •»»•••**»**»»•••«»*•«••«•*«. 
(•CRAM TEST OF\JUMp , (I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION, . , 
j*SET THE BR7 BIT j PERFORM THE JUMP INSTRUCTION, 
(♦VERIFY' THE JUMP ; DID OCCUR BY CLOCKING THE INSRUCTION - 
(•IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE • 
j»BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
(•THE BR DATA IS HQVED TO P0RT4, IF THIS DATA IS CORRECT. 
(•THE JUMP HAS SUCCESSFUL, IF THE JUMP WAS UNSUCCESSFUL- ,• 
•♦THEN PQRT4 WILl CONTAIN" A " 37 

f j •*»»*•••#•#•»*%**#•»»•»•»••»»»•»♦»•»»»»♦••«»#»»♦••»*»»»»»*»•»*- 

I TEST 41 



MOV 
MOV ' 

mov. r . - 

HSTCLR 
BI.T ' 
BEQ 
JSR , 

JSR 



#4l,TST«0 
#,TST42,«EXT 
IK, LOCK 



■|BlTl,5,S"fAT:i 
68 + 2 

PC,MEMSET 



|R1 CONTAINS BASE DMCli ADDRESS 
! WASTER CLEAR DMC11 
(IS IT CRAM" 
(SKIP TEST IF NO 
(SET MEM AND RAM 

(SET THE BR7 BIT' 
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3 37 4 


075230 


1 04414 


3 375 


025232 


100400 


1376 


075234 


1 04414 


3177 


075236 


1 17777 


3 37 8 


n?524n 


004737? ; i 


3 379 


025244 


0"0377 


3.380 


025246 


120504 


3381 


025250 


001401 


3382 


025252 


104005 


338 3 


025254 


1O4401 


3*8* 


025256 


012737 i 


3385 


25?*>* 




3 386 


025764 


004737 


3387 


2J52W 




3 38S 


075272 


100403 


.3 389 


025274 


104414 


3390 


025276 


1 03400 


3 391 


025300 


004737 i 


3392 


025304 


OOOOOO 


3 39 3 


075306 


120504 


3394 


025310 


001401 


3395 


025312 


104005 


3396 


o?5314 


104401 


3 397 


075316 


012737 i 


3398 


25324 




3399 


025324 


004737 1 


3400 


025330 


104414 


3401 


025332 


100406 


3402 


025334 


104414 


3403 


075336 


107525 


3404 


075340 


004737 i 


3405 


075344 


000125 


3406 


025346 


120504 


3407 


025350 


001 401 


3S08 


025352 


104005 


3409 


075354 


1 04401 


3410 


075356 


104400 


3411 






341? 






341 3 






34) 4 






3415 






3416 






3417 






3418 






3419 






3420 






3421 






3472 






3423 






3424 






'475 






3476 


O75360 


012737 < 


3177 


175366 


017737 i 


i1?S 


075374 


013737 i 
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025264 001220 



2SI 
33 1 



025324 001220 



4St 
5SI 



00004? 001226 
025554 001216 
075470 0«1220 



ROMCLK 
100406 I ' 
ROMCLK . ' ,. r 
114377$<400«7> 



JSR 
377 

CMPB 
BEQ ' 4 " 
HLT , . 
SC0P1 

MOV . , 



PC^PAMDAT 

R5.R4 ; : 
2S 

t3.«,L0CK . 
PC , SETBR7 



j next w0bi3 is imstruction, romclk pc*5304 
j start at rom pc=0 

■ » next word is -instruction*- pomclk pc=5304. 
i jump to rom pc of 1777 ' 

jR4=CRAM PC (LSB ft BITS) 

I EXPECTED DATA 

jIS ROM PC CORRECT? 

J BR IF YES 

; ERROR, CRAM PC IS WRONG 
;L0OP TO 1$ IF SW09*1 : 
jfJEW SC0P1 



JSR 

ROMCLK 
100403 ; 
ROMCLK 

100000K'400»7> 
JSR . PC, RAM 



CMPB 

BEQ 

HLT 

SC0P1 

MOV 



R5,R4 
4S 
5 

*5$,L0CK. 



jSET THE BR7 BIT' 

| NEXT WORD IS INSTRUCTION, ROMCLK' PCs5304 
J START AT ROM PC = 3 

; "EXT WORD IS INSTRUCTION, ROMCLK PCS5304 
t JUMP TO ROM PC OF -.••>.-.;.■ 
T jR4»CRAM PC CLSB B BITS) 

J EXPECTED DATA 
jIS ROM PC CORRECT? 
J BR IF YES 

VERROR, CRAM PC IS WRONG 
I LOOP TO 3$ IF SW09»1 
JNEW SC0P1 



JSR 
ROMCLK 
100406 
ROMCLK 

104125!<400«7> 
JSR PORAMC 
125 
CMPB 
BEQ 
HLT 
SC0P1 
SCOPE 



PC, SETBR7 



R5,R4 

6i 

5 



(SET THE BR7 BIT' 

) NEXT WORD IS INSTRUCTION, 

t START AT ROM PC=6 

i NEXT WORD IS INSTRUCTION, 

}JUMP TO ROM PC OF 525 

t R4»CRAM PC (LSB 8 BITS) 

I EXPECTED DATA 

»IS ROM PC CORRECT? 

1 BR IF YES 

(ERROR, CRA« pc IS WRONG 
(LOOP TO 5S IF SW59«1 
I SCOPE THIS TEST 



ROMCLK PC»5304 
ROMCLK PCo5304 



;•»•*••«••*«******#*»»#«#•#* TEST 42 •••••**#*•«•••***•*•**»•••• 

(•CRAM TEST OF JUMPCI) ON C BIT SET MICRO-PROCESSOR INSTRUCTION, 

(•CLEAR THE C BIT, PERFORM THE JUMP INSTRUCTION, 

(•VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 

(•IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 

(•BP WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 

(•THE BR DATA IS MOVED TO P0PT4 . IF THIS DATA IS CORRECT 

(•THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 

(•THEN P0RT4 CONTAINS A 37 

( t ••••••••••••••*••*•••••••••••*••*•••**»••••••••••••••••••••••• 



TEST 42 



MHV 
MOV 

vnv 



* 42 » TSTNO 

* TST43 . NKXT 
»1$,L0CK 



.pi CHSiTAIN? DMC1S ADDRKS5 
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3430 
3431 
343? 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
344q 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3156 
3457 
3459 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3J6B 
3469 
347* 
347 1 
347? 
347 3 
3474 
3475 
3476 
3477 
347Si 
347Q 
34f>o 
34P1 
34<?2 
34S3 
340J 
34fi5 



025402 
025404 
025412 
025414 
025420 
025420 
025424 
025426 
025430 
02543? 
025434 
025440 
025442 
025444 
025446 
025450 
025452 
025460 
025460 
025464 
025466 
025470 
025472 
025474 
025500 
025502 
025504 
025506 
025510 
025512 
025520 
075520 
025524 
0?5526 
025530 
025532 
025534 
025540 
025542 
075544 
125546 
025550 
025552 



104412 
032737 
001457 
004737 

004737 
104414 
100400 
104414 
1 15377 
004737 
000001 
120504 
001401 
104005 
104401 
012737 

004737 
104414 
100403 
104414 
101000 
004737 
000004 
120504 
001401 
104005 
104401 
012737 

004737 
104414 
100406 
101414 
105125 
004737 
000007 
120504 
001401 
104005 
104401 
104400 



100000 001366 

035654 

035430 



025460 001220 
035430 



2$: 
3St 



025520 001220 
035430 



4$1 
SSI 



MSTCLR 

BIT #BIT15,STATi 

BEO 6S+2 

JSP PC i MEMSET 

JSP PCCLRALL 

ROMCLK 

100400 

ROMCLK 

114377|<400*2> 
JSP PC.RAMDAT 

1 

CMPB 
BEQ 
HLT 
SC0P1 
MOV 



R5 , R4 
21 
5 

t 31 • LOCK 
PCCLRALL 



JSR 

ROMCLK 
100403 
ROMCLK 

1000001<400*2> 
JSR 



4 

CMPB 

BEO 

HLT 

SC0P1 

MOV 



JJUMP TO 
PC.RAMDAT 



B5.R4 
4> 



15*. LOCK 
PCCLRALL 



JSR 

ROMCLK 
100406 
ROMCLK 
104125J<400*2> 



JSR 
7 

CMPB 

BEQ 

HLT 

SC0P1 

SCOPE 



PC i P AMD AT 

R5.R4 

6* 

5 



MASTER CLEAR DMC1 1 
IS IT CRAM? 
SKIP TEST IF NO 
SET MEM AND RAM 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
START AT POM PC*0 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 

JUMP TO ROM PC OF 1777 

R4«CRAM PC CLSB 8 BITSJ 

EXPECTED DATA 

IS ROM PC CORRECT? 

BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 1» IF SW09»1 
NEW SC0P1 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
START AT ROM PC«3 

NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 

ROM PC OF 

R4«CR*M PC (LSB 8 BITS) 
EXPECTED DATA 
IS ROM PC CORRECT? 
BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 3S IF SW09*1 
NEW SC0P1 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
START AT ROM PC»6 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 

JUMP TO ROM PC OF 525 

R4»CRAM PC (LSB 8 HITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 5$ IF SW59«1 
SCOPE THIS TEST 



)•••••••*•••*•••»*»••••••••• TEST 43 *#»##*»«#»»»»»»»»»»#**»*«*» 

l*CRAM TEST OF JUMP(I) ON Z BIT SET MICRO-PROCESSOR INSTRUCTION. 

(•CLEAR THE Z BIT, PERFORM THE JUMP INSTRUCTION, 

I »VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 

|*IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 

l»BP WITH THE LOWEST 8 BITS Or THE CRAM PC, AT THIS POINT 

I »THE BR DATA IS MOVED TO P0RT4 . IF THIS DATA IS CORRECT 

J»THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 

I*THEN P0RT4 CONTAINS A 37 

I | ••••*•••**•**•»*»•••*••*••»•*••••••••••••••*•••••**•••••*••••» 
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PI 1 09 


-DEC-76 


14S59 


34S6 








3487 








34«a 


025554 


012737 


000043 


34R9 


025562 


01 2737 


025750 


34°r. 


075570 


012737 


025614 


34«1 








3492 


025576 


104412 




3493 


025600 


032737 


100000 


349 4 


025606 


001457 




3495 


025610 


004737 


035654 


3496 


025614 






3497 


025614 


004737 


035430 


*4<3 9 


025620 


104414 




3499 


025622 


100400 




3500 


025624 


104414 




350! 


025626 


115777 




35 0? 


075630 


004737 


035550 


3503 


025634 


000001 




3504 


025636 


120504 




3505 


025640 


001401 




3506 


025642 


104005 




3507 


025644 


104401 




350q 


025646 


01 2737 


025654 


3500 


025654 






3510 


025654 


004737 


035430 


3511 


025660 


104414 




3512 


025662 


100403 




3513 


025664 


104414 




351 4 


025666 


101400 




3515 


025670 


004737 


035550 


3516 


025674 


000004 




3517 


025676 


1 20504 




351 fl 


025700 


001 401 




3519 


025702 


104005 




3520 


025704 


104 401. 




3521 


02J706 


012737 


025714 


3522 


02571 4 






3523 


02571 4 


004737 


035430 


3524 


025720 


104414 




3525 


025722 


100406 




3526 


025724 


1 04414 




3527 


025726 


105525 




3528 


07573" 


004737 


035550 


3529 


025734 


O00O07 




35 3d 


025736 


120504 




353 1 


075740 


001401 




35 32 


025742 


104005 




35 33 


025744 


10 4 4 01 




3534 


025746 


1 0440" 




35 35 








35 '6 








35 37 








35 3P 








35 39 








3* IT 

3^ 4 1 
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CRAM JUMP TESTS 



PAGE : 0213 



001216 
001220 



TST431 



2*1 

3SI 



4*1 

5*1 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BEQ 
JSR 



#43,TSTNO 
tTST44,NEXT 
II*. LOCK 



IBIT1S.STAT1 
6«+2 

PC. MEMSET 



JSP PCCLRA 

ROMCLK 

100400 

ROMCLK 

114377}<400»3> 
JSR PC t RAW 



CMPB 

BEQ 

HLT 

SC0P1 

MOV 



R5,R4 

2* 

5 



JSR PCCLRA 

ROMCLK 

100403 

ROMCLK 

100000I<400*3> 
JSR PC, R AMD 

4 

CMPB 
BEQ 
HLT 
SC0P1 
MOV 



JJUMP TO 



R5,R4 

45 

5 



JSR PC.CLRH 

ROMCLK 

100406 

ROMCLK 

104125!<400»3> 
JSR PCRAMC 
7 

CMPB R5.R4 
BFQ 6* 
HLT 5 
SC0P1 
SCOPE 



Rl CONTAINS BASE DMC11 ADDRESS 
MASTER CLEAR DMCU 
IS IT CRAM? 
SKIP TEST IF NO 
SET MEM AND RAM 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 

START AT ROM PC*0 

NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 

JUMP TO ROM PC OF 1777 

R4»CRAM PC (LSB 8 BITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 1* IF SW09=1 
NEW SC0P1 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC«S304 
START AT ROM PC«3 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
ROM PC OF 

R4»CPAM PC <LSB 8 BITS) 

EXPECTED DATA 

IS ROH PC CORRECT? 

BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 3* IF SW09at 
NEW 5C0P1 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
START AT ROM PC=6 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 

JUMP TH ROM PC OF 525 

R4=CRAM pc (LSB 8 BITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BP IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 58 IF SW59»1 
SCOPE THIS TEST 



;»»«»*♦»»•♦«#*»»•#***»»♦»*»» TFST 44 •*•****••••*•••»•**•***••#• 

I»CRAM TFST OF JU"P(I) n»J BRO SF"T MICRO-PROCESSOR INSTRUCTION, 
;»CLEAF THE BRO BIT, PEPFnpM THF JU^P INSTRUCTION, 
• •VFPIFY THF J(' M P DIT> NOT OCCUP *>Y CLOCK IMG THE INSTRUCTION 
THF LOCATION IT IS AT, THIS INSTRUCTION LOADS THfc 
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354? 








3543 








3544 








3545 








3546 








3547 








3549 








35*9 








3550 


025750 


0127 37 


0Q0044 


355 1 


025756 


012737 


026144 


3552 


025764 


012737 


026010 


355 3 








3554 


025772 


104412 




3555 


075774 


032737 


1 ooooo 


3556 


026002 


001 457 




3557 


026004 


004737 


035654 


3558 


O26010 






3559 


0260 1 


004737 


035430 


3560 


02601 4 


104 414 




3561 


026016 


1 00400 




3562 


026020 


1 n A A 1 A 




3563 


026022 


1 16377 




3564 


026024 


0M737 


035550 


3565 


026030 


000001 




3566 


026032 


1 20504 




3567 


076034 


001 401 




3569 


026036 


104C05 




3569 


026040 


1 04401 




3570 


026042 


01 2737 


026050 


3571 


026050 






3<?7; 


076050 


0047 37 


035430 


3573 


02605* 


J 04414 




3574 


026056 


1 O0403 




3575 


026060 


104414 




3576 


026062 


102000 




3577 


026064 


004737 


035550 


3573 


026070 


000004 




3579 


026072 


1 20504 




35 a 


076074 


001401 




359 1 


026076 


1 04005 




3532 


026100 


104401 




359 3 


076102 


0127 37 


0261 10 


3584 


026110 






3595 


0261 10 


0047 37 


035430 


3596 


076114 


104414 




3597 


0261 16 


1 00406. 






026 1 20 


10 4414 




3599 


026122 


106125 




3590 


026124 


004737 


035550 


3591 


026130 


000007 




35»2 


026132 


120504 




3593 


026134 


00i40i 




3594 


026136 


104005 




3595 


026140 


104401 




35°6 


o?61 42 


104400 




3597 









2s: 
3$t 



4S: 
5$: 



j»BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
j»THE BR DATA' IS MOVED TO P0RT4. IF THIS DATA IS CORRECT 
j*THE CRAM PC TS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
•♦THEN P0RT4 CONTAINS A 37 

> «**■»♦##*##*###*♦***#*'<♦■»»•***»*»»*»****»**»******»********»'»*** 



1 TEST 44 



MOV 

MOV ;. . 
MOV 

MSTCLR 
BTT 
BEQ 
JSR 



#44,TSTN0 

#TST45,NEXT 

#1»,L0CK 



#BIT15»STAT1 
68+2 

PC jHEMSET 



JSP 


PC/CLRALL 


jCLEAR ALL CONDITIONS 


ROMCLK 




J NEXT WORD IS INSTRUCTION 


100400 




t START AT ROM PCsO 


ROMCLK 




j NEXT WORD IS INSTRUCTION 


114377l<400»4> 


; JUMP TO ROM PC OF 1777 


JSR 


PCRAMDAT 


jR4«CRAM PC (LSB 8 BITS) 


1 




f EXPECTED DATA 


CMPB 


R5,R4 


; IS ROM PC CORRECT? 


BEQ 


2S 


fBP IF YES 


HLT 


5 


j ERROR, CRAM PC IS WRONG 


SCOPi 




jLOOP TO IS IF SW09BJ 


MOV 


#3S,L0CK 


jNEW SCOPI 



ROMCLK 
100403 
ROMCLK 

100000!<400»4> 
JSR 



fJUMP TO 
PCRAMDAT 



CMPB 

BEQ 

HLT 

SCOPI 

MOV 



R5»R4 

4$ 

S 

IS$, LOCK 



JSR PCCLRA 

ROMCLK 
100406 
ROMCLK 

104125 J<400*4> 
JSR PCRAMC 
7 

CMPB R5.P4 
5EG 6i 
HLT 5 
SCOPI 
SCOPE 



Rl CONTAINS BASE DMC11 ADDRESS 
MASTER CLEAR DMC11 
IS IT CRAM? 
SKIP TEST IF NO 
SET MEM AND RAM 



ROMCLK PC«5304 



ROMCLK PC«5304 
ROMCLK PCB5304 



NEXT WORD IS INSTRUCTION, 
START AT ROM PC* 3 
NEXT WORD IS INSTRUCTION, 
ROM PC OF 

P4*CRAM PC (LSB 8 BITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BP IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 38 IF SW09«1 
NEW SCOPI 



CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
START AT ROM PC=6 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 

JUMP TO ROM PC OF 525 

R4»CRAM PC ( LSB 8 BITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 5S IF SW59=1 
SCOPE THIS TEST 
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DZD"H.P11 09 


-DFC-76 


14:59 


359R 








3 C 99 








3600 








3601 








3607 








3603 








36 ')4 








3605 








3606 








3607 








3609 








3609 








361 








361 1 








3612 


0261 44 


01?737 


.000045 


361 3 


026152 


012737 


026340 


361 4 


026160 


012737 


026204 


3615 








3616 


0261 66 


104412 




3617 


026170 


032737 


100000 


36 19 


076176 


ooi 457 




361 9 


076200 


0"4737 


035654 


3620 


076204 






3621 


026204 


004737 


035430 


3622 


076210 


1 04414 




3623 


026212 


100400 




3624 


02b214 


1 04414 




3625 


026216 


116777 




3626 


026220 


O04737 


035550 


3627 


026224 


000001 




3629 


076226 


120504 




3679 


026230 


001401 




3630 


076232 


104005 




3631 


026234 


104401 




36 37 


076236 


012737 


026244 


3633 


026244 










WU«* I 3 f- 




36 35 


026250 


104414 




36 36 


026252 


100403 




3637 


026254 


1 n4414 




3638 


026256 


1 "7400 




3639 


026260 


004737 


035550 


3640 


026264 


000004 




3641 


026266 


120504 




364? 


026270 


001 401 




3M3 


"26272 


104005 




3644 


076274 


1 O4401 




3645 


"76276 


017737 


026304 


1646 


076304 






3647 


026304 


004737 


035430 


36 48 


076310 


104414 




3649 


026312 


100406 




3650 


('7631 4 


1044 14 




3*51 


026316 


1 "6575 




36*? 


'i;6320 


Cm. -47 37 


.135550 


3^,5 3 


026354 


0000(51 
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CRAM JUMP TESTS 



PAGE: 021S 



2$: 
3s: 



4$: 

5S : 



;*****••*•***»•«»•***••••*#* TEST 45 *»***•♦»##****»****•»»#**** 

>»CRAM TEST OF JUMP(I) ON BR1 SET MICRO-PROCESSOR INSTRUCTION, 
j *CLEAR THE BP1 BIT, PERFORM THE JUMP INSTRUCTION, 
j#VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 
I »IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
l»BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
:#THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS CORRECT 
r*THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
j#THEN P0RT4 CONTAINS A 37 

i :♦*»»»**»•♦*•♦»**♦»»#»***»»**#♦♦»»«»»*»****»#***##*»*»*♦*•**«»» 

» TEST 45 



MOV 
MOV 
MOV 

MSTCLR 
BIT 

BEQ 
JSR 



I4S,TSTN0 
#TST46,NEXT 
I IS, LOCK 



#BIT15,5TAT1 
6S+2 

PCMEMSET . . 



JSR PC.CLRJ 

ROMCLK 
100400 
ROMCLK 

114377l<400#5> 

JSR 

i 

CMPB 
BEQ 
HLT 
SCOPI 
MOV 



PCRAMDAT 

R5,R4 
2t 
5 



JSK PCtliKAlJlj 

ROMCLK 
100403 
ROMCLK 

100000i<400*5> :J 
JSR PCRAMDAT 



CMPB 

BEQ 

HLT 

SCOPI 

MOV 



R5,R4 
4S 

5 

t5S,L0CK 



JSP PCCLPALL 

BOMCLK 

100406 

hOMCLK 

104125!<400»5> 
JSR PC.PAVDAT 



PI CONTAINS BASE DMCU ADDRESS 
MASTER CLEAR DMC11 
IS IT CRAM? 
SKIP TEST IF NO 
SET MEM AND RAM 



ROMCLK PC=5304 
ROMCLK PC"5304 



CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, 

START AT ROM PC=0 

NEXT WORD IS INSTRUCTION, 

JUMP TO ROM PC OF 1777 . 

R4"CRAM PC (LSB 8 BITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BP IF YE5 

ERROR, CRAM PC IS WRONG 
LOOP TO IS IF SW09M 
NEW SCOPI 



luhk Aiiii lunuinuns 

NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
START AT ROM PC"3 

MEXT wnpp is INSTRUCTION, ROMCLK PCs5304 
ROM PC OF 

P4«CRAM PC (LSB 8 BITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 3$ IF SW09»1 
NEW SCOPI 

CLEAP ALL CONDITIONS 

NEXT WOPD IS INSTRUCTION, ROMCLK PC«S304 
START AT POM PC=6 

NEXT «;npp TS INSTRUCTION, ROMCLK PCa5304 
Jliwp TO ROM PC OF 525 
R4=CPAK PC (LSB 8 BITS) 
EXPECTED DATA 
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365* 


026326 


120504 




3655 


026 330 


001401 




3656 


026332 


104005 




3657 


026334 


104401 




3658 


026336 


104400 




3659 








3660 








3661 








366? 








3663 








3664 








3b65 








3666 








3667 








3666 








3669 








3670 








367 1 








3675 








3673 








3674 


026340 


012737 


000046 


3675 


076346 


0127 37 


026534 


3676 


026354 


012737 


026400 


3677 








367R 


026362 


104412 




3679 


026364 


032737 


100000 


3690 


02637? 


001457 




36SI 


026374 


004737 


035654 


3682 


026400 






36B3 


026400 


004737 


035430 


36S>4 


O26404 


10441 4 




3685 


026406 


100400 




3686 


O26410 


104414 




36? 7 


026412 


1 1 7377 




36SP 


"26414 


004737 


035550 


3689 


026420 


000001 




369ft 


026422 


1 20504 




3691 


076424 


001401 




3692 


026426 


104005 




3693 


026430 


104401 




3694 


026432 


01 2737 


026440 


3695 


026440 






3696 


O26440 


004737 


035430 


3697 


"26444 


104414 




3698 


026446 


100403 




3699 


076450 


104414 




3700 


026452 


103000 




3701 


026454 


004737 


035550 


370? 


026460 


000004 




3703 


076462 


120504 




3704 


026464 


001401 




3705 


026466 


104005 




3706 


076470 


1 04401 




3 7 07 


026472 


012737 


026500 


370R 


07*500 






3709 


026500 


004737 


O35430 



2«« 
3»l 



CMPB 

BEG 

HLT 

SC0P1 

SCOPE 



R5.R4 
5 



[IS ROM PC CORRECT? 
j BR IF YES 

(ERROR, CRAM PC IS WRONG 
[LOOP TO SS IF SW59«1 
j SCOPE THIS TEST 



S •••••••••••«••••••**•*••••• TEST 46 »#»»♦♦•#»*»♦•»»*«•••**•»«#* 

I*CPAH TEST Or JUMPCI) ON BR4 SET MICRO-PROCESSOR INSTRUCTION, 
I »CLEAR THE BR4 BIT, PERFORM THE JUMP INSTRUCTION, 
J»VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 
[•IN THE LOCATION IT IS AT. THIS INSTRUCTION LOADS THE 
(•BR WITH THE LOWEST 8 BITS Or THE CRAM PC, AT THIS POINT 
I *THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS CORRECT 
I«THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
[•THEN PORT* CONTAINS A 37 

j I #*»##»«»######*##»•»••»#*••»»*•»»*»«*»•»•••»•«•••»•»»•»•«•••«» 



4SJ 
SSI 



( TEST 


46 


MOV 


f46,TSTN0 


MOV 


#TST*7,NEXT 


MOV 


tit, LOCK 


MSTCLR 




BIT 


#BIT15,STAT1 


BEO 


6$ +2 


JSR 


PCMEHSET 


JSP 


PCCLRALL 


ROMCLK 




100400 




ROMCLK 




1143771<400»6> 


JSR 


PCRAMDAT 


1 

CMPB 


R5,R4 


BEQ 


2S 


HLT 


5 


SC0P1 




MOV 


131, LOCK 


JSR 


PCCLRALL 


ROMCLK 




100403 




ROMCLK 




1000001<400»6> |JUMP 


JSR 


PCRAMDAT 


4 




CMPB 


R5,R4 


BEQ 


4« 


HLT 


5 


SC0P1 




MOV 


#51, LOCK 


JSR 


PCCLRALL 



Rl CONTAINS BASE DMC11 ADDRESS 
MASTER CLEAP DMC11 
IS IT CRAM? 
SKIP TEST IF NO 
SET MEM AND RAM 

CLEAR ALL CONDITIONS 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
START AT ROM PC = 

NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 

JUMP TO ROM PC OF 1777 

R4»CRAM PC (LSB 8 BITS) 

EXPECTED DATA 

IS ROM PC CORRECT? 

BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 1$ IF SW09=1 
NEW SC0P1 



CLEAR ALL CONDITIONS 
NEXT WORD IS INSTRUCTION, 
START AT POM PC=3 
NEXT WORD IS INSTRUCTION, 
ROM PC OF 

R4*CRAM PC (LSB 8 BITS) 
EXPECTED DATA 
IS POM PC CORRECT? 
BR IF YES 

ERROR, CRAM PC IS WRONG 
LOOP TO 3S IF SW09*1 
NEW SC0P1 

(CLEAR ALL CONDITIONS 



ROMCLK PC»5304 
ROMCLK PC=5304 



' AC Yl 1 27(1006) 14-DEC-76 



DZn-H.PH 09 


-DEC-76 


14159 


3710 


026504 


104414 




3711 


026506 


1 00406 




3712 


026510 


104414 




3713 


076512 


107125 




3714 


026514 


004737 


035550 


3715 


026520 


000007 




371ft 


026522 


120504 




3717 


026524 


001401 




'719 


026526 


104005 




37 1 


026530 


104401 




3720 


026532 


1O4400 




3721 








3772 








3723 








3774 








3775 








3776 








3777 








3728 








372° 








3730 








3731 








37 37 








37 33 








3734 








37 35 








37 36 


026534 


012737 


000047 


3737 


026542 


012737 


026730 


37 30 


026550 


012737 


026574 


3739 








3740 


026556 


104412 




3741 


026560 


032737 


100000 


3742 


026566 


001457 




3743 


026570 


004737 


035654 


3744 


026574 






37*5 


026574 


004737 


035430 


3746 


026600 


104414 




3747 


026602 


100400 




3749 


026604 


1 04414 




37*9 


026606 


1 17777 




3750 


076610 


004737 


035550 


3751 


026614 


000001 




3757 


026616 


170504 




3753 


076620 


001401 




3754 


026622 


1 04005 




3755 


026624 


1 04401 




3756 


026626 


012737 


076634 


3757 


026634 






3758 


076634 


004737 


035430 


3759 


026640 


104>14 




3760 


026642 


1 00403 




3 7 6 1 


076644 


1 04414 




37 6 ? 


076646 


1 O3400 




3 7 6 3 


A ?*650 


"-4737 


"16550 


37^4 


076S54 


"0PO04 




1765 


<'7*-656 


1 20504 
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2St 
3$! 



ROMCLK 
100406 
ROMCLK 

104125J<400»6> 



JSR 
7 

CMPB 

BEO 

HLT 

SC0P1 

SCOPE 



PCRAMDAT 

RS,R4 

6f 

5 



j NEXT WORD IS INSTRUCTION, 

I START AT ROM PC»6 

| NEXT WORD IS INSTRUCTION, 

(JUMP TO POM PC OF 525 

[R4*CRAM PC CLSB 8 BITS) 

I EXPECTED DATA 

[IS ROM PC CORRECT? 

[ BR IF YES 

[ ERROR, CRAM PC IS WRONG 
[LOOP TO 5S IF SW59*1 
J SCOPE THIS TEST 



ROMCLK PC=5304 
ROMCLK PC»5304 



[*»»•»»#»»*»••»»•••*»••»•»#• TEST 47 •»»»»»*»»»»•»•»•»»#•»••»••• 

|«CRAM TEST OF JUMP(I) ON BR7 SET MICRO-PROCESSOR INSTRUCTION, 
{•CLEAR THE BR7 BIT, PERFORM THE JUMP INSTRUCTION, 
(•VERIFY THE JUMP DID NOT OCCUR BY CLOCKING THE INSTRUCTION 
[•IN THE LOCATION IT IS AT, THIS INSTRUCTION LOADS THE 
[»BR WITH THE LOWEST 8 BITS OF THE CRAM PC, AT THIS POINT 
I »THE BR DATA IS MOVED TO P0RT4, IF THIS DATA IS CORRECT 
(•THE CRAM PC IS CORRECT, IF THE CRAM PC IS NOT RIGHT, 
(♦THEN P0RT4 CONTAINS A 37 

■ f •••••»**•••••••••••»•••••••••••••••••*••••••••••••••••••*••••• 



TEST 47 



MOV 
MOV 
MOV 

MSTCLR 
BIT 
BEQ 
JSP 



M7,T3TN0 
»TST50,NEXT 
til, LOCK 



»BIT15,STAT! 
69 + 2 

PCMEMSET 
PCCLRALL 



[Rl CONTAINS BASE DMC11 ADDRESS 

J MASTER CLEAR DMC11 

[IS IT CRAM? 

j SKIP TEST IF NO 

[ SET MEM AND RAM 



JSR 

ROMCLK 
100400 
ROMCLK 
114377!<400*7> 



JSP 
1 

C«PB 

BEQ 

HLT 

SC0P1 

MOV 



PCRAMDAT 



R5,R4 
2$ 



»3S,L0CK 



PCCLRALL 



(CLEAR ALL CONDITIONS 

(NEXT WORD IS INSTRUCTION, 

[START AT ROM PC=0 

(NEXT WORD IS INSTRUCTION, 

(JUMP TO ROM PC OF 1777 

(R4»CRAM PC CLSB 8 BITS) 

(EXPECTED DATA 

[IS ROM PC CORRECT? 

[BR IF YES 

( ERROR i CRAM PC IS WRONG 
[LOOP TO 1$ IF SW09=1 
[NEW SC0P1 



ROMCLK PC*5 304 
ROMCLK PC»5304 



JSH 
ROMCLK 
1 00403 
R1>«CLK 

100n00i<400*7> (JI'MP TO 
JSP PCRAMDAT 



CPS 



P.5,04 



[CLEAR ALL CONDITIONS 

[ NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
■ START AT ROM PC = 3 

I NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 

BP* PC OF 
;R4=CRA« PC (LSB 8 BITS) 
; EXPECTED DATA 
[IS Rn« PC CORRECT? 
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3766 


026660 


001401 










45 


j BR IF YES 


3767 


026662 


104005 








HLT 


5 


(ERROR, CRAM PC IS WRONG 


3768 


026664 


1O4401 






4SI 


SC0P1 




(LOOP TO 3$ IF SW09»1 


3769 


026666 


012737 


026674 


001220 




MOV 


#5$, LOCK 


jNEW SC0P1 


377Q 


026674 








5» I 










026674 


004737 


035430 






JSP. 


PC » CLP ALL 


{CLEAR ALL CONDITIONS 


3772 


026700 


104414 








ROMCLK 




j NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


3773 


0267 02 


1O0406 








100406 




1 START AT ROM PC = 6 


377 4 


026704 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 


3775 


026706 


107525 








1041251<400«7> 


jJUMP TO ROM PC OF 525 


3776 


026710 


004737 


035550 






JSP. 


PC.RAMDAT 


(R4»CRAM PC (LSB 8 BITS) 


3777 


026714 


000007 








7 




(EXPECTED DATA 


3778 


026716 


120504 








C*P8 


Rb f B4 


JIS ROM PC CORRECT? 


3779 


026720 


001401 








BEO 


61 


jBR IF YES 


37 90 


026722 


1O4005 








HLT 


S 


j ERROR, CRAM PC IS WRONG 


3781 


026724 


104401 






6S t 


SC0P1 




fLOOP TO 5S IF SW59*1 


3782 


026726 


104400 








SCOPE 




j SCOPE THIS TEST 


37P3 
3704 


















3785 












(•»••*•»••»**«»»»»•»»»•*»»•* TEST 50 *«•••»•»»»•••»*«••»»•#»•»»• 














(•FREE 


RUNNING FLAG 


MODE DATA TEST 


3787 












(•TRANSMIT A MESSAGE 


AND VERIFY THE RECEIVED DATA 


3788 












(•IF NO 


TURNAROUND CONNECTOR IS ON LINE UNIT LOOP IS SET. 


3789 












1 *ALL FOLLOWING TESTS ARE FREE PUNNING AND ARE PERFORMED 


3790 












J •ONLY 


ON DMC'S WITH 


LINE UNITS. IF YOU WISH TO PERFORM 


3791 












j »THESE 


FREE RUNNING 


TESTS ON A KMC (NORMALLY THE FREE RUNNING TESTS 


3792 












(•WILL 


FAIL ON A KMC 


, THE TIMER IS TOO FAST) THEN YOU MUST 


37 9 3 












(•MANUALLY SET BITO 


OF STAT3 IN THE STATUS MAP, 


3794 
3705 












1 :••••••••••«••••••••••••••••••••••*•••••••••••••••*•••••••••••• 


3??S 












: TEST 


50 




1797 


















3798 


026730 


01 2737 


000050 


001226 


TST50I 


«nv 


#S0,TSTNO 




3790 


026736 


012737 


027742 


001216 




MOV 


*TST51,NEXT 




3800 
















(Rl CONTAINS BASE DMC11 ADDRESS 


3 = 01 


026744 


104412 








MSTCLR 




I MASTER CLEAR DMC 1 1 


3«02 


026746 


032737 


100000 


001366 




BIT 


#BIT15»STAT1 


|IS IT A DMC? 


3803 


026754 


001406 








BEQ 


.♦16 


jBR IF YES 


3804 


076756 


032737 


000001 


001372 




BIT 


#BIT0> STAT3 


JKMC WITH BITO SET? 


3805 


026764 


001002 








PNE 


,♦6 


jBR IF YE5 


3 a Of, 


026766 


0001 37 


027740 






JMP 


14$ 


(SKIP TEST 


3807 


076772 


032737 


010000 


001366 




BIT 


#BIT12#STAT1 


(LU PRESENT? 


3 Br >8 


027000 


001 372 








BnE 




r or IF NO 


3 = 09 


027002 


004737 


OJ5602 






JSR 


PC,WROM 


(WRITE MAP IN CRAM 


3«10 


027006 


013700 


034760 






MOV 


PCOUNT.RO 


J CLEAR RECEIVER BUFFER 


3811 


027P12 


062700 


000002 






ADD 


• 2,R0 


(CLEAR 2 MORE LOCATIONS 


3812 


027016 


012702 


034762 






MOV 


IP.BUF.R2 


(CLEAR OUT RECEIVE BUFFER 


3813 


027022 


105022 






io$: 


CLRB 


(R2> + 


(CLEAR BUFFER 


3814 


027024 


005300 








DEC 


RO 


(DONE YET! 


381S 


027026 


001375 








BNE 


101 


(NO 


3R16 


027030 


005(.37 


034706 






CLR 


TFLAG 


(SET TFLAG TO 


3 » * 7 


027034 


0C5n37 


034710 






CLP 


RFLAG 


1 SET RFLAG TO 


38 1 8 


O27040 


012711 


040000 






MOV 


IBIT14,CR1) 


(MASTER CLEAR 


3819 


077044 


032737 


100000 


001366 




BIT 


»BIT15,STAT1 


jCPAM? 


3<= 70 


027052 


001402 








BFQ 


.♦6 


(BR IF NO 


3«71 


027054 


012711 


100000 






MOV 


#BIT15f tRl ) 


I IF CRAM SET RUN 
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-DEC-76 


14:59 
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3872 


077060 


105227 


000000 






INCB 


to 


1 DELAY 


38 2 3 


027064 


0O1375 








BNE 


,-4 


(DELAY 


38 24 


027066 


005037 


001416 






CLR 


TEMP 


I GET SET TO DELAY 


3°2S 


027072 


00571 1 






13: 


T5T 


(Rl) 


I RUN SET? 


3 a 26 


027074 


1O0405 








BMI 


. + 14 


(BR IF YES 


3177 


027076 


0052 37 








INC 


TEMP 


} INC DELAY 


3828 


O27102 


001373 








BNE 


it 


( BR IF NOT DONE 


3879 


027104 


1 0401 4 








HLT 


14 


I ERROR RUN NOT SET 


38 30 


027106 


000771 








BR 


It 


(TRY AGAIN 


3811 


027110 


032737 


040000 


001366 




BIT 


#BIT14,STAT1 


(TURNAROUND CONNECTOR? 


38 32 


0771 16 


001002 








BNE 


.+6 


(BP IF YES 


3833 


027120 


052711 


004000 






BIS 


#BITU,(R1) 


(SET LINE UNIT LOOP 


38 34 


0771 24 


15271 1 


000043 






BISBI43 


r (Rl) 


(BASE I 


38 35 


027130 


005037 


001416 






CLP 


TEMP 


(GET SET TO DELAY 


38 36 


027134 


10571 1 






2«: 


TSTB 


(Rl) 


(RDI SET? 


'937 


027136 


1 00404 








BMI 


, + 12 


(BR IF YES 


3838 


027140 


005237 


001416 






INC 


TEMP 


(INC DELAY 


38 39 


077144 


001 373 








BNE 


2$ 


(BR IF NOT DONE 


3840 


077146 


104014 








HLT 


14 


(ERROR, RDI NOT SET 


384 1 


027150 


012761 


035030 


000004 




MOV 


«BASE,4(R1) 


( SET UP BASE ADDRESS 


3M? 


027156 


005061 


000006 






CLP 


6(R1) 


(CLEAR COUNT 


3843 


027162 


142711 


000040 






BICB 


140, (Rl) 


(CLEAR RQI 


38 41 


027166 


005037 


001416 






CLR 


TEMP 


1 get set to delay 


3845 


0271 72 


105711 






38: 


TSTB 


(Rl) 


(IS RDI GONE? 


3846 


077174 


100020 








BPL 


8$ 


(BR IF YES 


3947 


027176 


005237 


001416 






INC 


TEMP 


(INC DELAY 


38 18 


077202 


001373 








BNF 


3$ 


(BR IF NOT DONE 


3819 


077204 


105761 


000002 






TSTB 


2(R1) 


(IS THERE A CNTL P ERROR 


3810 


027210 


100011 








BPL 


18» 


(BR IF NO 


3«51 


027212 


016137 


000004 


001252 




MOV 


4(R1),TEMP3 


(SAVE SEL4 FOP TYPEOUT 


3952 


027220 


016137 


000006 


001254 




MOV 


6(R1),TEMP4 


1 SAVE SEL6 FOR TYPEOUT 


385 3 


077226 


1O4016 








HLT 


16 


(CNTL ERROR 


3854 


027230 


000137 


027740 






JMP 


14« 


J FATAL ERROR STOP 


3»55 


027234 


104014 






18$: 


HLT 


14 


[ error rdi still set 


3856 


027236 








RSI 








3857 


077236 


152711 


000041 






BISB 


•41,CR1) 


(ASK FOP CNTL I 














TSTB 


(P.!) 


; WAIT FOR RDI 


38-S9 


027244 


100376 








BPL 


64$ 


(BR IF NOT SETY 


3660 


027246 


005061 


000006 






CLR 


6CR1) 


(SET FULL DUPLEX 


3861 


027252 


142711 


000040 






BICB 


140, (Rl) 


(CLEAR RQI 


3 e 62 


027256 


105711 






65*: 


TSTB 


(Rl) 


(RDI UP? 


386 3 


027260 


100776 








BMI 


65$ 


(BR IF YES 


386,4 


027262 


15271 1 


000044 






BISB 


#44, (Rl) 


(REC BA/CC 


3865 


027266 


005037 


001416 






CLR 


TEMP 


(GET SET TO DELAY 


3P66 


027272 


10571 1 






4$: 


TSTB 


(Rl) 


}IS RDI SET? 


3867 


027274 


1 00404 








BMI 


.♦12 


[BP IF YES 


396 a 


027276 


0052 37 


001416 






INC 


TEMP 


(TNC DET„A Y 


38fc3 


027302 


001 373 








BNE 


4$ 


I BR IF DELAY NOT DONE 


3870 


027304 


1 04014 








HM 


14 


(ERROR RDI NOT SET 


3»7l 


027306 


012761 


034767 


000004 




wnv 


»PBUF,4(P1 ) 


(LOAD PF.C Bf 


3877 


077314 


01 3761 


034760 


000006 




MflV 


RC0UNT,6(P1 i 


(LO»D REC COUNT 


387 3 


077322 


14 2711 


000040 






BICB 


140, (PI) 


(CLFAR POI 


3 a 7 4 


077376 


005037 


001416 






C!.P 


TEMP 


j r .FT SET TO DELAY 


3«75 


077332 


101711 






55 : 


TSTP 


(PI) 


(RDI GONE? 


■3*7 6 


077 3 34 


1 "0 04 










,*1 7 


; BR IF YES 


3077 


o>7 3 36 


005,? 37 


ooi 4 16 








TfMf> 


(INC DELAY 
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3978 


027342 


00137 3 








BNE 


5$ 


j BR IF NO DONE 


1879 


027344 


104014 








HLT 


14 


[ ERROR RDI STILL SET 


3880 


027346 


15271 1 


000040 






BXSB 


#40, (Rl J 


[XMIT BA/CC 


3881 


027 352 


005037 


001416 






CLR 


TEMP 


[GET SET TO DELAY 


3892 


027356 


105711 






6S S 


TSTB 


(Rl) 


(RDI SET? 


3993 


027 360 


1 00404 








BMI 


♦ 12 


j BR IF YES 


3884 


027362 


005237 


001416 






INC 


TEMP 


j INC DELAY 


3995 


027 366 


001 373 








BNE 


68 


[BR IF NOT DONE 


38 86 


027 370 


10401 4 








HLT 


1 4 


(ERROR RDI NOT SET 


3887 


027372 


012761 


0347 1 4 


000004 




MOV 


#TBUF, 4 C Rl ) 


[ LOAD XMIT BUFFER 


3988 


027400 


1 3761 


034712 


000006 




MOV 


TC0UNT,6(R1 ) 


jLOAD COUNT 


3889 


027406 


142711 


000040 






BICB 


#40* (Rl) 


(CLEAR RQI 


3890 


027412 


005037 


001416 






CLR 


TEMP 


(GET SET TO DELAY 


38 9 1 


027416 


105711 






7$ t 


TSTB 


t Rl 3 


[RDI GONE? 


389? 


027420 


1 00004 








BPL 


■ + 12 


(BR IF YES 


3803 


027422 


005237 


001416 






INC 


TEMP 


[INC DELAY 


3894 


027426 


001373 








BNE 


78 


[BR IF NOT DONE DELAY 


3895 


027430 


104014 








HLT 


14 


[ERROR RDI STILL SET 


390f> 


027432 


005037 


001416 




1681 


CLR 


TEMP 


[GET SET TO DELAY 


3897 


027436 


0177 37 


000022 


001246 




MOV 


#22»TEMP1 


[GET SET FOR LONG DELAY 


38°8 


027444 


105761 


000002 




1 1 $ 1 


TSTB 


2 C Rl ) 


[RDO SET? 


3890 


027450 


1 00407 








BMI 


173 


1 BR IF YES 


3<JO0 


027452 


005237 


001416 






INC 


TEMP 


[INC DELAY 


3O01 


027456 


001372 








BNE 


lit 


[BR IF DELAY NOT DONE 


3902 


027460 


005337 


001246 






DEC 


TEMPI 


(DEC DELAY COUNT 


3903 


027464 


001 367 








BNE 


11$ 


[BR IF NOT DONE DELAY 


3904 


027466 


104014 








HLT 


14 


[ERROR RDO NOT SET 


3905 


O27470 


016137 


000002 


001250 


1 7$ 1 


MOV 


2CR1 ) »TEHP2 


[SAVE SEL2 


3906 


027476 


001001 








BNE 


t+4 


[BR IF OK 


3907 


027500 


1 0401 4 








HLT 


14 


[ERRORlll SEL2 = Oil! Ill 


3908 


027502 


032761 


000004 


000002 




BIT 


tBIT2 , 2 (Rl ) 


[REC OR XMIT? 


3909 


027510 


001032 








BNE 


13$ 


[BR IF REC 


3910 


02751? 


005737 


034706 




1 2$ t 


T5T 


TFLAG 


[FIRST TIME HERE? 


3911 


027516 


001401 








BEQ 


+4 


[BR IF YES 


39 1 2 


027520 


104014 








HLT 


14 


[ERROR MULTIPLE XMIT DONES 


301 3 


275 22 


012737 


177777 


034706 




MOV 


t "1 1 TFLAG 


[SET TFLAG TO -1 


3911 


0275 30 


1 32761 


000001 


000002 




BITB 


#BXT0,2(R1 ) 


[IS IT CONTROL 


3915 


027536 


001 401 








BEQ 


. + 4 


[BR IF «0 


39 1 


027540 


1 04014 








HLT 


14 


(XMIT ERROR 


3917 


027542 


022761 


0347 1 4 


000004 




CMP 


»TBUF,4(Ri) 


[XMIT BA CORRECT? 


3 Q 1 8 


127550 


001 401 








BEO 


J+ 4 


[BR IF YES 


3° 1 9 


027552 


104014 








HLT 


14 


[XMIT BA ERROR 


3970 


027554 


023761 


0347 1 ? 


000006 




CMP 


TC0UNT»6(R1 ) 


[COUNT OK? 


3921 


027562 


001401 








BEQ 


. + 4 


[BR IF YES 


3122 


027564 


104014 








HLT 


14 


[XMIT COUNT ERROR 


3923 


027566 


142761 


000207 


000002 




BICB 


#207,2(R1) 


[CLEAR RDO AND BITS 0-2 


3924 


027574 


000453 








BR 


15$ 


[CONTINUE 


30?5 


027576 


005737 


0347 1 




1 3$ I 


TST 


RFLAG 


(FIRST TIME HERE? 


3976 


027602 


001401 








BEQ 


.+4 


[BR IF YES 


3927 


027604 


1 0401 4 








HLT 


14 


[ERROR MULTIPLE REC DONES 


3028 


027606 


01 27 37 


177777 


034710 




MOV 


1-1, RFLAG 


[SET RFLAG TO -1 


3079 


02761 4 


1 32761 


000001 


000002 




BITB 


#BIT0,2(R1) 


[IS IT CNTL 


3" *0 


027622 


001401 








BEQ 


.+4 


[BR IF NO 


3131 


027624 


10401 4 








HLT 


14 


[RECEIVE ERROR 


393? 


027626 


022761 


034762 


000004 




CMP 


IRBUF,4(R1) 


[REC BA CORRECT? 


3933 


0?7634 


001401 








BEQ 


.+4 


[BR IF YES 
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30 14 


027636 


114014 








HLT 


14 


| REC BA ERROR 


3935 


077640 


023761 


034760 


000006 




CMP 


PC0UNT,6(R1) 


[COUNT OK? 


30 36 


027646 


001401 








BEQ 


. + 4 


[BR IF YES 


39 37 


027650 


104014 








HLT 


14 


1 REC COUNT ERROR 


3130 


027652 


013700 


034760 






MOV 


RCOUNT,PO 


[GET SET TO CHECK DATA 


39 39 


077656 


012702 


034714 






MOV 


#TBUF,R2 


|R2 POINTS TO GOOD DATA 


3940 


027662 


012703 


034762 






MOV 


»RBUF,P3 


[R3 POINTS TO RECEIVE DATA 


3°41 


027666 


010337 


001252 




9SI 


MOV 


R3,TEMP3 


[ SAVE ADDRESS FOR TYPEOUT 


394? 


027672 


11220? 








M0V8 


CR2)+,R5 


|R5 = XMIT DATA 


3°43 


027674 


112304 








MOVB 


(P3)+,R4 


|R4 a RECEIVE DATA 


3941 


027676 


120504 








CMPB 


R5,P4 


[CHECK DATA 


30*5 


027700 


001401 








BEQ 


.+4 


[BR IF OK 


3946 


027702 


104013 








HLT 


13 


[DATA ERROR 


3047 


077704 


005300 








DEC 


RO 


[DEC COUNT 






nn 1 3*7 








BNE 


9$ 


[BR IF NOT DONE 


3949 


027710 


005713 








TST 


(R3) 


[THIS SHOULD BE 0, ELSE 


3950 


027712 


001401 








BEQ 


. + 4 


[IT RECEIVED TO MUCHJ1 


3951 


027714 


104014 








HLT 


14 


[ ERROR 


3952 


027716 


142761 


000207 


000002 




BICB 


»207,2(R1) 


[CLEAR RDO AND BIT5 0-2 


3953 


027724 


005737 


034710 




15SI 


TST 


RFLAG 


[REC DONE? 


3954 


027730 


001640 








BEQ 


168 


[BR IF NO 


3955 


077732 


005737 


034706 






TST 


TFLAG 


[XMIT DONE? 


3956 


P77736 


001635 








BEQ 


168 


[BR IF NO 


395 7 


027740 


104400 






1481 


SCOPE 




[SCOPE THIS TEST 


3956 


















39S<3 


















3960 












[#♦»»»«*##♦•*«»**«**♦#♦»♦*♦» TEST 51 ♦#**»*»*»*»»»•»»»»»•••»»»»» 


3961 












1*0VEPUN TEST 




3962 












|*IN FREE RUNNING MODE 


SEND MESSAGE WITH NO RECEIVE 


3961 












[•BUFFER AVAILABLE, VERIFY THAT AN OVERRUN ERROR OCCURS 


3964 












[ 1 »»*»*#»#»»*•»»*»#****»*»*♦»**»»*******•♦*»***♦**»»»***»»***»** 


3Q65 


















39*>6 












[ TEST 


51 




3967 


















3968 


077742 


012737 


000051 


001226 


TST51 1 


MOV 


151 ,TSTNO 




3060 


027750 


017737 


030170 


001216 




MOV 


IT5T52 , NEXT 




3970 
















[Rl CONTAINS BASE DMCU ADDRESS 


3971 


027756 


10441 2 








MSTCLP 




[MASTER CLEAR DMC11 


397? 


077760 


032737 


100000 


001366 




BIT 


»BIT15,STAT1 


[IS IT A DMC? 


397 3 


027766 


001 406 








BEQ 


. + 16 


[BR IF YES 


3974 


027770 


032737 


000001 


001372 




BIT 


IBITO, STAT3 


(KMC WITH BITO SET? 


3975 


027776 


001 002 








BNE 


. + 6 


I BR IF YES 


3076 


030000 


000137 


030152 






JMP 


10$ 


[SKIP TEST 


3977 


030004 


032737 


010000 


001366 




BIT 


#BIT12,STAT1 


(LU PRESENT? 


3978 


030012 


"01372 








BNE 


,-12 


[BR IF NO 


3970 


030014 


004737 


035602 






JSP 


PC.WROM 


[WRITE MICBO-COr>E IN CRAM 


398 


"30020 


014737 


036002 






JSP 


PC, BASELD 


[LOAD DMC BASE ADDRESS 


398 1 


030024 


0045 37 


036772 






JSP 


R5 , XFPELD 


! LOAD XMIT BA/CC 


398? 


030030 


134714 








TBUF 




[BA 


398 3 


030032 


000144 








44 




sec 


39M 


030034 


O12H0 


O0001O 






MOV 


»10,P0 


•HO 3 RETRANSMISSION COUNT 


?0J5 


031040 


112713 


000010 






MOV 


010. P3 


(DELAY COUNT 


3«5f- 


O31044 


115137 


001 416 






CLP 


TEMP 


[CLEAR DELAY COUNTER 


3987 


n 30150 


115761 


011102 




1 s ; 


TSTH 


2 (PI) 


;TS SDY SET? 


39 = & 


030054 


10 4 7 








b"l 


. + 20 


« H R IF SET 


390Q 


'i 30056 


005237 


011416 






1 K 'C 


TEMP 


; INC DELAY CPUNTEP 
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3990 


030062 


001372 






BNE 


It 


; BR IF NOT DONE DELAY 


3991 


030064 


005303 






DEC 


S3 


[DEC DELAY COUNT 


399! 


030066 


001370 






BNE 


1$ 


[BP IF DELAY NOT DONE 


3991 


030070 


104014 






HLT 


14 


, ERROR, RDY NOT SET 


3994 


030072 


000427 






BR 


10S 


[GET OUT 


3995 


030074 


1 32761 


000001 


000002 


BITB 


tBITO, 2CR1 ) 


jIS IT CNTL 0? 


3996 


030102 


001002 






BNE 


at 


j BR IF YES 


3997 


030104 


i O4014 








J 4 


•ERROR, NOT CNTL 


399fi 


030106 


000421 






BR 


lot 


[CONTINUE 


3999 


030110 


012705 


000004 


11SI 


MOV 


tBIT2,R5 


> PUT "EXPECTED" IN R5 


4000 


030114 


016104 


000006 




MOV 


6(R1),R4 


jPUT "FOUND" IN R4 


inni 


030120 


020504 






CMP 


R5.P4 


j IS ORUN SET? 


4002 


030122 


001404 






BEQ 


i2S 


j BR IF YES 


4003 


030124 


022704 


000001 




CMP 


♦ 1»P4 


1 DATA CK ERROR? 


4004 


030130 


001411 






BEQ 


i 3 S 


j BR IF YES 


4005 


0301 32 


104015 






HLT 


15 


jERROP, ORUN NOT SET 


4006 


030134 


042761 


000207 


000002 12SJ 


BIC 


♦207»2CP1) 


iCLEAR PDO 


4007 


030142 


005037 


001416 




CLR 


TEMP 


j RESET DELAY 


4009 


030146 


005300 






DEC 


R0 


jDEC RETRANS COUNT 


4009 


030150 


0O1337 






BNE 


1$ 


[COUNTINUE 


4010 


030152 


104400 




10SI 


SCOPE 


[SCOPE THIS TEST 


401 t 


030154 


042761 


000207 


000002 138: 


BIC 


«207,2(P1) 


lIGNOR THIS ERROR 


4012 


030162 


005037 


001416 




CLR 


TEMP 


j RESET DELAY 


401 3 


030166 


OO0730 






BP 


It 


[CONTINUE 


4014 
















4015 
















40)6 










[»*»•»•«»»»»••»»•»»*»*»*«**• TEST 52 •»••»•••»••»••*••»»*•**•»»* 


401 7 










[•LOST 


DATA TEST 




40 1 9 










[»IN FREE RUNNING MODE 


SEND A MESSAGE LONGER THAN THE RECEIVE 


40 1 Q 










(•BUFFER, VERIFY THAT A 


LOST DATA ERROR OCCURS, 












t !#»##**##♦»##*#»»#»•*•»•*•»*»**•»••«»•*••«•»*•»»#•«»•«*•»••»*•»* 


4021 
















4022 










[ TEST 


52 




40?3 
















4024 


030170 


012737 


000052 


001226 TST521 


MOV 


t52,TSTN0 




4025 


O30176 


012737 


030362 


001216 


MOV 


tTST53 , NEXT 




40?6 














[Rl CONTAINS BASE DMC11 ADDRESS 


4o?7 


030204 


104412 






MSTCLR 




j MASTER CLEAR DMC11 


4026 


030206 


032737 


100000 


001366 


BIT 


IBIT15.STAT1 


[IS IT A DMC? 


4^2« 


030214 


001406 






BEQ 


. + 16 


( BR IF YES 


4030 


030216 


032737 


000001 


001372 


BIT 


IBIT0,STAT3 


[KMC WITH BITO SET? 


4031 


030224 


001002 






BNE 




jBR IF YES 


403? 


030226 


000137 


030360 




JMP 


tot 


> SKIP TEST 


4033 


030232 


032737 


010000 


001366 


BIT 


IBIT12,STAT1 


[LU PRESENT? 


4034 


030240 


001 372 






BNE 


,-12 


I BR IF NO 


4015 


030242 


004737 


035602 




JSR 


PC , WROM 


(WRITE MICRO-CODE IN CRAM 


40 16 


030246 


004737 


036002 




JSR 


PC , BASELD 


j LOAD DMC BASE ADDRESS 


4037 


030252 


004537 


036240 




JSP 


R5/RFRELD 


I LOAD RECEIVE BA/CC 


4"3a 


030256 


034762 






PBUF 




(BA 


4" 39 


010260 


000020 






20 




>CC 


4 40 


030262 


00 45 37 


036272 




JSR 


R3.XFRELD 


(LOAD XMIT BA/CC 


404) 


030266 


034714 






T3UF 




; BA 


404? 


030270 


000044 






44 




(CC 


4043 


010272 


012703 


000010 




MOV 


•10, R3 


(DELAY COUNT 


4044 


030276 


005037 


001416 




CLR 


TEMP 


(CLEAR DELAY COUNTER 


4045 


O3O302 


1 05761 


000002 


1SI 


TSTB 


2{R1) 


(IS RDY SET? 


ZD^H 


MACYH 


27(1006) 


14-DEC 


-76 16132 PAGE 78 






p; 



DZn"H,P1l 09 


-PFC-76 


14(59 




FREE PUNNING TESTS 






4046 


030306 


100407 






BMI 


,+20 


(BR IF SET 


4047 


030310 


005237 


001416 




INC 


TEMP 


(INC DELAY COUNTER 


40 4 9 


030314 


001372 






BNE 


It 


[BR IF NOT DONE DELAY 


4049 


030316 


005303 






DEC 


R3 


(DEC DELAY COUNT 


4050 


030320 


001370 






BNE 


1$ 


[BR IF DELAY NOT DONE 


4051 


030322 


104014 






HLT 


14 


•EPROP, PDY NOT SET 


4052 


030324 


000415 






BR 


10$ 


(GET OUT 


4053 


030326 


132761 


000001 


000002 


BITB 


tBITO, 2CR1) 


[IS IT CNTL 0? 


4054 


030334 


001 002 






BNE 


lit 


[BR IF YES 


4055 


010336 


104014 






HLT 


14 


[ERROR NOT CNTL 


4056 


030340 


000407 






BR 


lot 


[CONTINUE 


4057 


030342 


012705 


000020 




llt« MOV 


tBIT4,P5 


[PUT "EXPECTED" IN R5 


405fi 


030346 


016104 


000006 




MOV 


6(P1),R4 


[PUT "FOUND" IN R4 


4059 


030352 


020504 






CMP 


R5,R4 


[IS LOST DATA SET? 


4060 


030354 


001401 






BEQ 


101 


[BP IF YES 


4061 


030356 


104015 






HLT 


15 


[ERROR, LOST DATA NOT SET 


406? 


O30360 


104400 






lOtl SCOPE 




[SCOPE THIS TEST 


4063 
















4064 
















4065 










[••••••••••••*#••••«*****•»* TEST 53 •*»»•♦»•»*»••••»»•••♦•♦•*»» 


4065 










(•TRANSMIT NON-EXISTENT 


MEMORY TEST 


4067 










(•IN FREE RUNNING MODE, 


LOAD A TRANSMIT BA THAT WILL TIME OUT 


406R 










(•VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS 


4069 










; J •*••••••••••••••*•••••••••••**•»• •*•**•*••••••••••*«•••••••••• 


4070 
















4071 










j TEST 


53 




407? 
















4073 


030362 


012737 


000053 


001226 


TST53I MOV 


#53,TSTNO 




4074 


030370 


01 2737 


030544 


001216 


MOV 


ITST54, NEXT 




4075 














[Rl CONTAINS BASE DMC11 ADDRESS 


4076 


30376 


104412 






MSTCLP 




[MASTER CLEAR DMC1 1 


4077 


030400 


032737 


100000 


001366 


BIT 


*BIT15,STAT1 


[IS IT A DMC? 


4078 


030406 


005 406 






BEQ 


,4-16 


[BR IF YES 


4079 


030410 


032737 


000001 


001372 


BIT 


tBITO, STAT3 


[KMC WITH BITO SET? 


4000 


030416 


001002 






BNE 




[BR IF YES 


40m 


030420 


000137 


030542 




JMP 


lot 


1 SKIP TEST 


40S? 


030424 












sLU PRESENT? 


40S3 


030432 


001 372 






BNE 


i-l 2 


[BR IF NO 


4004 


030434 


004737 


035602 




JSP 


PC r WROM 


[WRITE MICRO-CODE IN CRAM 


40S5 


030440 


004737 


036002 




JSR 


PC, BASELD 


; LOAD DMC BASE ADDRESS 


4096 


030444 


004537 


036272 




JSR 


R5 , XFPELD 


[LOAD XMIT BA/CC 


4037 


030*50 


177320 






177320 




[BA 


40BR 


030452 


140044 






140044 




[CC 


4099 


030454 


01 2703 


000010 




Mnv 


*10,R3 


[DELAY COUNT 


4090 


030460 


005037 


001416 




CLR 


TEMP 


[CLEAR DELAY COUNTER 


4091 


030464 


1 95761 


000002 




1SI TSTB 


2CR1) 


[IS RDY SET? 


4012 


030470 


1 00407 






BMI 


. + 20 


: BR IF SET 


409 3 


030472 


005237 


001416 




INC 


TEMP 


; INC DELAY COUNTER 


40q4 


030476 


001372 






BNE 


It 


[BP IF NOT DONE DELAY 


40')S 


03050" 


005303 






DEC 


R3 


; DEC DELAY COUNT 


4(196 


030502 


001 370 






BNE 


IS 


;Bp IF DELAY HOT DONE 


4097 


039504 


104014 






HI T 


14 


[FPPOP, RDY NOT SET 


409B 


O30506 


000415 






BP 


10s 


;<",FT nu? 


1099 


03051O 


1 12761 


OO0O01 


000902 


BITB 


«BIT0.2(P) ) 


[IS IT CNTL 0? 


11 no 


030516 


(IM .,02 






i>'-'E 


IIS 


;RC If VKS 


4101 


305 20 


1 ^4014 






Hl.T 


14 


jTKPnP, NOT CNTL ~ 
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PASES 0224 



41 02 


030522 


010407 








BP 


10$ 


(CONTINUE 


4103 


030524 


012705 


000400 




118! 


MOV 


tBIT8 i R5 


|PUT "EXPECTED" IN R5 


4104 


030530 


016104 


000006 






MOV 


6(R1 ) ,R4 


1 PUT "FOUND" IN R4 


4105 


030534 


020504 








CMP 


R5,P4 


(IS NON-EX-MEM SET? 


4 1 06 


030536 


001401 








BEQ 


.+* 


(BR IF YES 


4107 


030540 


1 04015 








HIT 


15 


(ERROR NON-EX-MEM NOT SET 


4109 


030542 


1 04400 






lost 


SCOPE 


( SCOPE THIS TEST 


4109 


















4110 


















4111 












[«••••*••••••••••••••••••••• TEST 54 *•»»*»»»••••♦«••»»**••••»•* 


4 112 












••RECEIVE NON-EXISTENT 


MEMORY TEST 


411 3 












(•IN FREE RUNNING MODE 


LOAD A RECEIVE BA THAT WILL TIME OUT 


4114 












[•VERIFY THAT A NON-EXISTENT MEMORY ERROR OCCURS 


41 15 
4116 












[ [»#.»#*♦##♦##»»»•#»»•»»•»*••»»»»••»*»*•**♦»»»•»*•»»•**»*•»»•«*•»* 


4117 
4118 












J TEST 


54 




4119 


030544 


012737 


000054 


001226 


TST54 J 


MOV 


#54,TSTM0 




41 20 


030552 


012737 


030736 


001216 




MOV 


ITST55iNEXT 




4121 
















(Rl CONTAINS BASE DMC11 ADDPESS 


41 22 


030560 


104412 








MSTCLP 




(MASTER CLEAR DMC1 1 


4123 


030562 


032737 


100000 


001366 




BIT 


IBIT15,STAT1 


(IS IT A DMC? 


4124 


030570 


001406 








BEQ 


, + 16 


(BR IF YES 


41 25 


030572 


"32737 


000001 


001372 




BIT 


#BIT0,STAT3 


(KMC WITH BITO 5ET7 


4176 


030600 


001002 








BNE 


,*6 


j BR IF YES 


4127 


030602 


0001 37 


030734 






JHP 


10« 


; SKIP TEST 


41 28 


030606 


032737 


01 0000 


001366 




BIT 


*BIT12,STAT1 


(LU PRESENT? 


4129 


030614 


001372 








BNE 


.-12 


f BP IF NO 


4130 


030616 


004737 


035602 






JSR 


PCWROM 


(WRITE MICRO-CODE IN CRAM 


4131 


030622 


004737 


036002 






JSR 


PCBASELD 


J LOAD DMC BASE ADDRESS 


41 32 


030626 


004537 


036240 






JSR 


R5 1 RFRELD 


) LOAD RECEIVE BA/CC 


4133 


030632 


i 77320 








177320 




; BA 


4134 


030634 


140044 








140044 




[CC 


41 35 


030636 


004537 


036272 






JSR 


R5 > XFRELD 


t LOAD XMIT BA/CC 


4136 


030642 


034714 








TBUF 




f BA 


41 37 


030644 


000044 








44 




(CC 


41 38 


030646 


012703 


000010 






MOV 


•10, R3 


(DELAY COUNT 


41 39 


030652 


005037 


001416 






CLP 


TEMP 


(CLEAR DELAY COUNTER 


4140 


030656 


105761 


000002 




ltt 


TSTB 


2CR1) 


( IS RDY SET? 


4141 


030662 


1O0407 








BMI 


,+20 


(BR IF SET 


41 42 


030664 


0"S237 


001416 






INC 


TEMP 


(INC DELAY COUNTER 


414 3 


030670 


001372 








BNE 


IS 


I BR IF NOT DONE DELAY 


4144 


030677 


005303 








DEC 


P3 


(DEC DELAY COUNT 


41 45 


030674 


001370 








BNE 


IS 


j BR IF DELAY NOT DONE 


4146 


030676 


1 04014 








HLT 


14 


(ERROR, RDY NOT SET 


4147 


O30700 


000415 








BP 


10$ 


(GET OUT 


11 4P 


030702 


132761 


000001 


000002 




BITB 


tBIT0,2CPl) 


(IS IT CNTL 0? 


11 49 


030710 


001002 








BNE 


11$ 


[BR IF YES 


■1150 


030712 


104014 








HLT 


14 


[ERROR, NOT CNTL 


4151 


030714 


000407 








BP 


10$ 


I CONTINUE 


1152 


030716 


O12705 


000400 




11SI 


MOV 


#BITB,R5 


(PUT "EXPECTED" IN P5 


4153 


030722 


01*104 


000006 






MOV 


6(R1),R4 


> PUT "FOUND" IN P4 


-.154 


030776 


070504 








CMP 


R5.R4 


(IS NON-EX-MEH SET? 


415"; 


030730 


001401 








BEQ 


.+* 


[BP IF YES 


4156 


030737 


1 14015 








HLT 


15 


1 ERROR NON-FX-MEM NOT SET 


5 157 


030734 


104400 






lOtl 


SCOPE 




[SCOPE THIS TE5T 
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-D^C-76 


14:59 


4159 








4159 








4160 








4161 








4162 








4163 








4164 








416"; 








1166 








4167 








416R 


030736 


012737 


000055 


4169 


O30744 


012737 


031114 


41 70 








1171 


030752 


104412 




4172 


030754 


032737 


1O000O 


4173 


030762 


001406 




4174 


030764 


037737 


000001 


4175 


030772 


001002 




4176 


030774 


OOOl 37 


031112 


4 1 77 


031000 


032737 


O10O00 


4178 


031 006 


001 372 




4179 


03101O 


004737 


035602 


4 1 BO 


O3101 4 


004737 


036002 


4181 


031 020 


152711 


000043 


41R2 


031 024 


10571 1 




4183 


031026 


100376 




4184 


031030 


142711 


000040 


4 1 85 


031034 


O05037 


001416 


4 18ft 


131040 


105761 


000002 


4197 


031044 


1 0040S 




4188 


031046 


005237 


001416 


4189 


031052 


101372 




4190 


031054 


1 4014 




4 191 


031056 


000770 




4197 


031060 


132761 


OOOOO! 


4193 


031066 


001002 




4194 


031 070 


104014 




4 195 


031072 


000407 




4 196 


031074 


012705 


001000 


1197 


"31100 


016104 


000006 


1199 


031 104 


020504 




4199 


031 106 


Oil 401 




4 20n 


031110 


1 14015 




4701 


031117 


] 04400 




42"2 








4J03 








4 704 








170"; 








^70* 








4207 








1708 








709 








1211 








47 11 








1717 


"31114 


■-■1 27 37 


011056 




"'"122 


•>< 7717 


*,.} ! 772 
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001226 
001216 



001366 
001372 



[••»••••*•••••»•*•**••*••••• TEST 55 »••»•*«•»••••«»•••••»»»*•»• 

[•PPOCESSOR ERROR TEST 

[»IN FREE RUNNING MODE, DO A BASE TRANSFER REQUEST AFTER A 

(•BASE HAS BEEN SET UP, VERIFY THAT A PROCESSOR ERROR OCCURS, 

[ 1 *»»»»##•••••*••»**•#«»»•»•••*#*»»»»•*»•»»»•»••••»*•»»••»•«»*••• 



[ TEST 


55 




MOV 


I55,TSTN0 




MOV 


#TST56,NEXT 


[Rl CONTAINS BASE DMC11 ADDRESS 


MSTCLR 




[MASTER CLEAR DMC 1 1 


BIT 


IBIT15.STAT1 


[IS IT A DMC? 


BEQ 


, + 16 


[BP IF YES 


BIT 


#BIT0,STAT3 


[KMC WITH BITO SET? 


BNE 


,+6 


(BP IF YES 


JMP 


lot 


(SKIP TEST 


BIT 


IBIT12,5TAT1 


(LU PRESENT? 


BNE 


.-12 


[BR IF NO 


JSP 


PC,WROM 


[WRITE MICRO-CODE IN CRAM 


JSR 


PCBASELD 


[LOAD BASE ADDRESS 


BISB 


143, (Rl) 


[2ND BASE REQUEST 


TSTB 


(PI) 


| RDI SET? 


BPL 


,-2 


1 BR IF NO 


BICB 


#40, (PI) 


[ CLEAR PQI 


CLR 


TEMP 


[GET SET TO DELAY 


TSTB 


2(R1) 


[RDO SET? 


BMI 


14$ 


(BR IF YES 


INC 


TEMP 


[INC DELAY 


BNE 


13S 


1 BR IF NOT DONE DELAY 


HLT 


14 


[ERROR, RDO NOT SET 


BP 


i3$ 


[TRY AGAIN 


BITB 


»BIT0,2(R1) 


[IS IS CNTL 0? 


BNE 


lit 


[BR IF YES 


HLT 


14 


1 ERROR NOT CNTL 


BR 


lot 


(CONTINUE 


MOV 


«BIT9,R5 


[PUT "EXPECTED" IN R5 


MOV 


6(R1),R4 


[PUT "FOUND" IN R4 


CMP 


R5,R4 


[IS PROC EPPOR SET? 


BEQ 


. + 4 


[BR IF YES 


HLT 


15 


[EPPOP, PROC EPPOP NOT SET 


SCOPE 




I SCOPE THIS TEST 



001 726 
01!7!ft 



f *************************** TE, C T 56 »»»««»««»»•*♦»*#»»»♦»«•»»#«» 

[•PROCESSOR eproh tf:st 

[•IN FREE RUNNING f ODE 00 A PQI WITH AN ILLEGAL 10 CODE 
I • VERIFY THAT A PPQCFSSnp EPPOP OCCURS 

I *************************************************************** 

; TEST 56 

" ->V »56,TST\'Q 
•m\ t TSTft 7 r N K t " 
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4214 














jRl CONTAINS BASE DMC11 ADDRESS 


"215 


031130 


104412 






MSTCLR 




( MASTER CLEAR DMC11 


4 21ft 


031132 


n 32737 


100000 


001366 


BIT 


#BIT15 f STATl 


lIS IT A DMC? 


4217 


031140 


001406 






BEQ 


,♦16 


I BR IF YES 


4?i P 


031142 


032737 


000001 


001372 


BIT 


JBITQ, STATS 


(KMC WITH BITO SET? 


4719 


031150 


O'MOO? 






BNE 


,+6 


j3R IF YES 


4720 


031 152 


000137 


031270 




JMP 


101 


(SKIP TEST 


4221 


Q 3 1 1 5 6 


0327J7 


010000 


001 366 


BIT 


#BIT12,STAT1 


(LU PRESENT? 


4722 


031164 


001372 






BNE 


,»12 


jBR IF No 


4773 


031 166 


004737 


035602 




JSR 


PC, WROM 


;WRITE MICRO-CODE IN CRAM 


4274 


031 172 


004737 


036002 




JSR 


PCBA3ELD 


(LOAD DMC BASE ADDRESS 


4225 


031176 


152711 


000046 




BISB 


♦46, (Rl) 


jRQI AND ILLEGAL CODE 


4228 


011202 


)0S7ii 






TSTB 


f RiJ 


•WAIT FOR RDI 


4227 


0312O4 


100376 






BPL 


,-2 


(BR IF No RDI 


4778 


031206 


14271 1 


000040 




BICB 


140, (Rl) 


(CLEAR RQI 


427? 


031212 


005037 


001416 




CLR 


TEMP 


(CLEAR COUNTER 


4710 


031216 


105761 


000002 




IS! TSTB 


2(Rl) 


(RDY SET? 


4731 


031222 


1 00405 






BMI 


,♦14 


J BR IF YES 


4737 


031224 


005237 


001416 




INC 


TEMP 


(BUMP COUNTER DELAY 


4733 


031230 


001372 






BNE 


11 


J BR IF NOT DONE 


4734 


031232 


104014 






HLT 


14 


1 ERROR NO RDY 


473"! 


031234 


000770 






BP 


IS 


1 TRY AGAIN 


4736 


031236 


132761 


000001 


000002 


BITB 


*B1T0,2CR1) 


(IS IT CNTL 


47 37 


031 244 


001002 






BNE 


IIS 


I BR IF YES 


423B 


031246 


104014 






HLT 


14 


(ERROR, NOT CNTL 


423<» 


031250 


000407 






BR 


10S 


(CONTINUE 


4740 


031252 


012705 


001000 




us: mov 


#BIT9,P5 


(PUT "EXPECTED" IN R5 


4741 


031256 


016104 


000006 




MOV 


6CR1),R4 


>PUT "FOUND" IN R4 


4747 


031.262 


020504 






CMP 


R5.R4 


J IS PROC ERROR SET? 


4743 


031264 


001401 






BEQ 




(BR IF YES 


4744 


031266 


1 04015 






HLT 


15 


(ERROR PROC ERROR NOT SET 


4745 


031270 


104400 






10SI SCOPE 




j SCOPE THIS TEST 


4746 
















4747 
















4743 










(••••«••••*••••••••••••••••• TEST 57 »*»••»«»»•»«••*••*»•»«#•#•« 


424<J 










(•HALF 


DUPLEX TEST 




475" 










|*IN FREE RUNNING MODE, SET HALF DUPLEX AND L U LOOP 


4751 










(•SEND 


A MESSAGE AND 


VERIFY THAT THFRE ARE NO DONES 


4757 










| (•»•»»»♦•**••*•*••»«»•»••»»*»•«•»»♦»»••••»»»••»»*»*•»•*»«••••*» 


4753 
















4754 










( TEST 


57 




4755 
















47*6 


03i 2?7 


012737 


000057 


001226 


TST37 S KCV 


957 i TSTNO 




47S7 


031300 


012737 


031432 


001216 


MOV 


ITST60/ NEXT 




475* 














(Rl CONTAINS BASE DMCU ADDRESS 


4259 


031 306 


10 4 412 






MSTCtiR 




f MASTER CLEAR DMCU 


4260 


031310 


032737 


100000 


001366 


BIT 


#BIT15,STAT1 


) IS IT A DMC? 


4761 


31316 


001 406 






BEO 


,♦16 


(BR IF YES 


4762 


031 320 


032737 


000001 


001372 


BIT 


*BIT0,8TAT3 


|KMC WITH BITO SET? 


4263 


031326 


001 002 






BNE 


,♦6 


(BR IF YES 


4754 


031330 


0001 37 


031424 




JMP 


10$ 


(SKIP TEST 


476S 


031334 


032737 


010000 


001366 


BIT 


#BIT12,STAT1 


(LU PRESENT? 


47*6 


031342 


001 372 






BNE 


,-12 


|BR IF NO 


4267 


031 344 


004737 


035602 




JSR 


PC, WROM 


( WRITE MICRO-CODE 


4?^ 


031 350 


004737 


036120 




JSR 


PCBASELH 


(LOAD BASE AND HALF DUPLEX 


4260 


031 354 


004537 


036240 




JSR 


R5, RFRELD 


1 LOAD RECEIVE BUFFER 
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FPEF PUNNING TESTS 






4770 


031360 


034762 








RBUF 




( BA 


427 1 


031 362 


000044 








44 




(CC 


4772 


031 3f 4 


004537 


036272 






JSR 


P5 i XFRELD 


(LOAD TRANSMIT BUFFER 


4773 


03t 370 


03471 4 








TBUF 




1 BA 


4774 


031377 


000044 








44 




(CC 






HI 51(11 


000003 






MOV 


*3,R3 


(LOAD DELAY COUNT 


4?7f- 


031400 


005037 


001416 






CLR 


TEMP 


(CLEAR DELAY 


4777 


031404 


105761 


000002 




4S! 


TSTB 


2CR1) 


(IS DONE SET? 


477H 


031410 


100406 








BMI 


5S 


(BR IF YES (ERROR) 


4770 


031412 


005237 


001416 






INC 


TEMP 


(TNC DELAY 


4790 


031416 


001372 








BNE 


41 


(BP IF DELAY NOT DONE 


42»1 


031420 


005303 








DEC 


R3 


(DEC DELAY COUNT 


47B2 


031422 


001370 








BNE 


4S 


(BR IF DELAY NOT DONE 


42»3 


031424 


104400 






lOSt 


5C0PE 




( SCOPE THIS TEST 


47S a 


031426 


104014 






5SS 


HLT 


14 


( ERROR DONE WITH HALF-DUPLEX 


47R5 
4796 


031 430 


000775 








BR 


108 


(GET OUT 


42H7 


















47?S 












(••••••••••••••••••••••••ft* TEST 60 «•♦*•••••*•»»»•»*••••••»»•• 


4730 












>*FPEE 


RUNNING DATA TEST (INTERRUPT DRIVEN EXERCISER) 


4790 












(•THIS 


TEST REPEATEDLY 


QUEUES UP 7 RECEIVE BUFFERS AND 


47^1 












;*7 TRANSMIT BUFFERS AND CHECKS DATA WHEN ALL 7 BUFFERS 


4797 












(•ARE 


RECEIVED. TRANSMIT COUNTS RANGE FROM 1 TO 104, ALSO 


4793 












(♦ODD 


AND EVEN TRANSMIT 


AND RECEIVE BA'S ARE USED, DATA 


4294 












(•IS A 


BINARY COUNT PATTERN, THE RESUME FUNCTION IS CHECKED IN THIS 


4295 












( | ••••••••••••••••••••••••••*••*•••»•••*••*••••••••••••*•••••••• 


4296 


















4297 












1 TEST 60 




4291 


















4799 


031432 


012737 


000060 


001226 


TST60I 


MOV 


160, TSTNO 




4300 


031 440 


012737 


003274 


001216 




MOV 


i .EOP.NEXT 




4301 
















(Rl CONTAINS BASE DMCU ADDRESS 


4307 


031 446 


104412 








MSTCLR 




(MASTER CLEAR DMC 1 1 


4301 


031 450 


032737 


100000 


001366 




BIT 


•BIT15,STATl 


(IS IT A DMC? 


4304 


031456 


001 406 








BEQ 


, + 16 


(BR IF YES 


43" 15 


031 460 


032737 


000001 


001372 




BIT 


IBIT0,STAT3 


(KMC WITH BITO SET? 




31466 


001002 








BNE 


.+6 


1 BP IF YES 


4307 


031470 


OOOl 37 


032434 






JMP 


ENDEX1 


)5KIP TEST 


430« 


031474 


032737 


010000 


001 366 




BIT 


• BITU.STAT1 


(LU PRESENT? 


4300 


031502 


001372 








BNE 


,-12 


(BR IF NO 


43m 


031504 


004737 


035602 






JSR 


PC, WROM 


(WRITE "ICR-CODE 


431 1 


031510 


012737 


000340 


177776 




MOV 


• 340, P-S 


(LOCK OUT INTERRUPTS 


4317 


031516 


013700 


001166 






MOV 


STAT1.R0 


( GET BP LEVEL 


4313 


031522 


0067O0 








ASP 


RO 


(SHIFT RIGHT 4 TIMES 


4314 


031524 


006700 








ASP 


RO 




4315 


031526 


OT6200 








ASP 


RO 




4316 


031530 


OO6200 








ASP 


RO 




4317 


031532 


042700 


177437 






BIC 


•177437, RO 


(PUT BR LEVEL IN PQ 


431 = 


11536 


012777 


032534 


147630 




MOV 


»IISP,9DMRVEC 


J LOAD INPUT VECTOR 


4319 


031544 


01 0"77 


1 47626 






MHV 


RO,»DMRt,VT. 


(LOAD LEVEL 


4370 


031550 


012777 


03 3040 


147622 




MOV 


•OISP, PDMTVFC 


(LOAD OUTPUT VECTOR 


4321 


031 5S6 


01 0077 


147620 






MOV 


RO.BOMTLVL 


(LOAD LEVFL 


4327 


















432 3 
43?< 












t TMTTT 


ALIZF ALL BUFFER 


LISTS AND COUNT LISTS 


43? 1 - 


" 3 1 s f ; 


'■ 1 J 7 3 7 


0^0104 


r, 3 4 7 6 




ur, v 


» ! 04 , TFLAH 


jTM.AO CONTAINS C'lUNT 



DZDMH 


CACY1 1 


27(10061 


14-DEC 


-76 16132 PAGE 83 




DZDMH, 


PI 1 09 


-PEC-76 


14:59 


FREE RUNNING TESTS 


4326 


031570 


012700 


033454 




WO V 




031574 


012703 


033746 




MOV 


4328 


031600 


010320 




1SI 


MOV 


4329 


031602 


062703 


000104 




ADD 


4330 


031606 


022700 


033472 




CMP 


4331 


031612 


001372 






BNE 


4332 


03161 4 


012720 


033510 


251 


MOV 


4333 


031620 


022700 


033510 




CMP 


4334 


031624 


001373 






BNE 


4335 


031626 


012700 


033622 




MOV 


4336 


031632 


01 3720 


034706 


3tl 


MOV 


4337 


031636 


022700 


033640 


CMP 


4338 


031642 


001373 






BNE 


4339 


031644 


012737 


000006 


034704 


MOV 


4340 


031 652 


012711 


040O00 




MOV 


4341 


031656 


032737 


100000 


001366 


BIT 


434? 


031664 


001402 






BEQ 


4343 


031666 


012711 


100000 




MOV 


4344 


031672 


012700 


177777 




MOV 


4345 


031676 


005037 


033450 


CLRTABi 


CLR 


4346 


0317OJ 


012705 


033656 




MOV 


4347 


031706 


005025 




23! 


CLR 


4348 


031710 


022705 


034702 




CMP 


4349 


031714 


001374 






BNE 


4350 


031716 


005737 


034704 




TST 


4351 


031722 


100407 






BMI 


4352 


031724 


012704 


033640 




MOV 


4 35 3 


031730 


013724 


034706 


4S s 


MOV 


4354 


031734 


022704 


033656 




CMP 


4355 


031740 


001373 






BNE 


4356 


031742 


005002 




5s: 


CLP 


4357 


031744 


005004 






CLR 


4358 


031746 


005711 






TST 


4359 


031750 


100376 






BPL 


4360 


031752 


152761 


000100 


000002 


BISB 


4361 


031760 


022737 


000006 


034704 


CMp 


4362 


011766 


001003 






BNE 


4363 


031770 


052711 


004143 




BIS 


4364 


031774 


000402 






BR 


4365 


03177* 


052711 


004144 


1SI 


BIS 


4366 


032002 


005037 


001416 


3$! 


CLR 


4367 


032006 


012737 


000022 


001250 


MOV 


4368 


"32014 


005037 


177776 




CLR 


4369 


032020 


022737 


000001 


034704 SCAN! 


CMP 


437o 


012026 


001O02 






BNE 


4371 


032030 


000137 


032472 




JMp 


437? 


032034 


022700 


000020 


1SI 


CMP 


4373 


032040 


001402 






BEQ 


4374 


037042 


0001 37 


032504 




JMP 


4375 


032046 


072702 


000034 


SCAN2 1 


CMP 


4376 


032052 


001402 








4377 


032054 


000137 


032504 




JMP 


4378 


032060 


022704 


000034 


8S! 


CMp 


4379 


032064 


001402 






BEQ 


4380 


032065 


000137 


032504 




JMp 


4381 


12072 






9St 





DZD«H 


►'ACYl 1 


?7f 1006) 


14-DEC 


-76 16132 PAGE 84 




DZDMH. Pit 09 


-DEC-76 


14:59 


FREE RUNNING 


TESTS 


438? 


032072 


01 2700 


033656 




MOV 


4383 


032076 


012002 




55! 


MOV 


4384 


"321 00 


005005 






CLR 


4385 


O37102 


005003 






CLR 


4386 


O32104 


005737 


034704 




TST 


4387 


0321 10 


100O1 2 






BPL 


4388 


032112 


022710 


000027 




CMP 


438° 


0321 16 


001406 






BEQ 


4390 


032120 


022710 


000042 




CMP 


4391 


032124 


001403 






BEQ 


4392 


032126 


022710 


000103 




CMP 


4303 


032132 


0O1O01 






BNE 


4394 


032134 


00520S 




7SJ 


INC 




nl?l 3ft 


01 0737 


001252 


6S: 


MOV 


4396 


032142 


112204 






MOVB 


4397 


032144 


120504 






CMPB 


439D 


032146 


0O1401 






BEQ 


4399 


"32t50 


104013 






HLT 


4400 


032152 


005205 






INC 


440! 


032154 


005203 






INC 


4402 


032156 


021003 






CMP 


4403 


037160 


001366 






BNE 


440 1 


032162 


062700 


000002 




ADD 


4405 


037166 


022700 


033712 




CMP 


4406 


032172 


0O1341 






BNE 


4407 


032174 


012700 


000001 




MOV 


440P 


037200 


005737 


034704 




TST 


4409 


032204 


1 00004 






BPL 


4410 


032206 


005237 


034704 




INC 


4411 


032212 


001231 






BNE 


441 2 


032214 


000447 






BR 


441 3 


03221 6 


032737 


000001 


034704 4$: 


BIT 


441* 


032224 


001003 






BNE 


4415 


032226 


005337 


034706 




DEC 


4416 


032232 


000403 






BP 


4417 


032234 


162737 


000040 


034706 IS: 


SUB 


4418 


032242 


005337 


034704 


2St 


DEC 


4419 


032246 


00121 3 






BNE 


4420 


032250 


005004 






CLR 


4421 


032252 


012702 


033642 




MOV 


4422 


032256 


062704 


000013 


IS: 


ADD 


4423 


032762 


06P422 






ADD 


4424 


032264 


022702 


033656 




CMP 


4425 


032270 


001372 






BNE 


4426 


032272 


012702 


033464 




MOV 


4427 


032276 


005222 






INC 


44?B 


032300 


005272 






INC 


4429 


03230? 


00522? 






INC 


44 30 


032304 


06270? 


000004 




ADD 


4431 


037310 


005272 






INC 


44 3? 


03231 2 


005'2J 






INC 


4433 


037314 


062702 


nopno4 




ADD 


44 34 


032370 


OT5222 






I^C 


443S 


037372 


01 2737 


1 77772 


034704 


MOv 


44 3* 


"32330 


OOOl 37 


031676 




J"P 


44 37 


3 7 3 3 4 


15271 1 


0001 46 







IXMITBA+2.R0 


fPO POINTS TO BA LIST 


♦RBUFF,R3 


>R3 CONTAINS BUFFER ADDRESS 


R3i (R03 + 


(LOAD BA LIST WITH REC BA 


#104, P3 


J UPDATE BUFFER ADDRESS 


IXMITBA+20.R0 


[ END OF REC BUFFERS? 


1$ 


|N0 LOAD NEXT ONE 


#TBUFF, tPO)+ 


1 LOAD BA LIST WITH XMIT BA 


SXMITBA+36,R0 


f END OF XMIT BUFFERS? 


28 


[NO LOAD NEXT BUFFER 


f RCNTAB+2/R0 


fRO POINTS TO COUNT LIST 


TFLAG,(RO)+ 


[LOAD COUNT OF 104 


»RCNTAB+20,R0 


(END OF REC COUNT LIST? 


3t 


[BR IF NO 


#6, FLAG jLOOP 


COUNT 


#BIT14,(F1) 


|SET MASTER CLEAR 


#BIT15,ST»T1 


jIOP? 


,+6 


|8R IF NO 


#BIT15,(R1) 


[SET RUN ON IOP 


1*1, RO 


jRO IS INPUT DONE COUNTER 


RESUME 


> CLEAR RESUME FLAG 


*RDNTAB,R5 


[ GET READY TO CLEAR ALL RECEIVE 


(R5) + 


(BUFFERS 


f RBUFFE, R5 


1 END OF BUFFER? 


2$ 


; BR IF NO 


FLAG 


{VARIABLE COUNTS? 


5( 


j BR IF YES(DON*T CHANGE THEM) 


*XCNTAB,R4 


[R4 POINTS TO XMIT COUNT LIST 


TFLAG, (R4) + 


1 LOAD XMIT CHAR COUNT 


#XCNTAB+16,R4 


j DONE? 


4$ 


J BR IF NO 


R2 


jR2 IS OUTPUT DONE COUNTER 


R4 


;R4 IS USED AS INDEX IN OISR 


(Rl) 


[IS RUN SET? 


.-2 


[WAIT FOR RUN 


#BIT6,2CR1) 


jSET IEO 


06, FLAG jFIRST 


TIHE? 


IS 


f BR IF NOT 


#4143, (Rl) 


iSET LU LOOP, IEI,RQI,BASE I 


38 


(CONTINUE 


(4144, (Rl) 


(SET LU LOOP, IEI, RQI, REC BA/CC 


TEMP 


[SET UP FOR DELAY COUNT 


»22,TEMP2 


5 GET SET FOR DELAY 


PS 


1 ALLOW INTERRUPTS 


t 1 i FLAG 


jl BYTE MESS? 


IS 


[ BR IF NO 


ENDEX3 


t BR IF YES 


»20,R0 


1 INPUT DONE? 


SCAN2 


[ BR IF YES 


SCAN1 


[ BR IF NO 


•34, R2 


> XMIT DONE FOR ALL MESSAGES? 


88 


) BR IF YES 


SCAN1 


[BR IF NO 


134, R4 


) PEC DONE FOR ALL MESSAGES? 


9$ 


; BR IF YES 


SCAN1 


I BR IF NO 



PAGE J 0229 



#RDNTAB,R0 




I GET FIRST REC BUFFER 


(P0)+,R2 




[R2 POINTS TO BUFFER 


RS 




[R5*EXPECTED 


R3 




>R3 = COUNT 


FLAG 




[CHECK FOR ODD XMIT BA'S 


68 




(ONLY FOR VARIABLE COUNTS 


#27, CPO) 




(IF 27 BUMP DATA BY 1 (ODD XMIT BA) 


7» 




I BR IF YES 


142, (RO) 




(IF 42 THEN ODD XMIT BA ALSO 


7S 




(BR IF YES 


1103, (RO) 




(IF 103 THEN ODD XMIT BA ALSO 


6$ 




(SKIP IF NOT 


R5 




(START DATA AT 1 FOR ODD XMIT BA'S 


R2,TEMP3 




(SAVE ADDRESS FOR TYPEOUT 


(R2)+,R4 




ItifcT RECEIVE DATA 


R5,P4 




(IS IT CORRECT? 


t+4 




(BR IF YES 


13 




[DATA ERROR 


R5 




[NEXT CHARACTER 


R3 




[INC COUNT 


(R0),R3 




[DONE YET? 


68 




[BP IF NO 


12, RO 




(GET NEXT REC BUFFER 


IRDNTAB+34 


,R0 


[DONE YET? 


58 




[BR IF NO 


11, RO 




; SET RO TO J 


FLAG 




(VARIABLE COUNTS? 


4$ 




[BR IF NO 


FLAG 




I FLAG IS NEGITIVE 


CLRTAB 




(BR IF NOT DONE 


ENDEX 




| ALL DONE 


IBITO , FLAG 




[CHANGE CHAR COUNT FOR NEXT LOOP 


1$ 




[BR TO SUB 40 


TFLAG 




1 DEC BY ONE 


28 




[CONTINUE 


#40, TFLAG 




[SUBTRACT 40 FRON XMIT COUNT 


FLAG 




[ DEC LOOP COUNT 


CLRTAB 




[GO DO IT AGAIN 


R4 




|P4 CONTAINS OFFSET 


HXCNTAB+2, 


R2 


[R2 POINTS TO XMIT COUNT LIST 


#13, R4 




[INCREASE B4 BY 13 


R4, (R2)+ 




| MAKE COUNTS VARIABLE 


iXCNTAB+16 


,R2 


[DONE ALL 7? 


3S 




(BR IF NO 


♦PECBA+12, 


R2 


[R2 POINTS TO REC BA LIST 


CR25 + 




[ MAKE THIS REC BA ODD 


(P2) + 




| MAKE THIS REC BA ODD 


(R2) + 




[MAKE THIS REC BA ODD 


#4,R2 




[SKIP TO XMIT BA LIST 


(R2) + 




!"A*E T"IS XMIT PA ODD 


tP2) + 




[MAKF! THIS XMIT BA ODD 


#4,R2 




[SKIP TO NEXT ODD BA 


CP25 + 




[MAKE THIS XMIT BA ODD 


1-6, FLAG 




;^AKE FLAG NEGITIVE 


CLPTAP 




: i.nnp with variable counts 


•1 46, (P1) 




jSH"T D'JW! ">MC 
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4438 


032340 


005737 


034704 




1SI 


TST 


FLAG 


(HAS INTERRUPT OCCURED? 


4439 


032344 


001775 








BEQ 


1$ 


} BR IF NO 


4440 


032346 


012700 


000003 






MOV 


*3»R0 


) BASE ADDRESS OFFSET 


4441 


032352 


105760 


035030 




2SI 


TSTB 


BASECRO) 


jCHECK ERROR COUNT 


4442 


032356 


001027 








BNE 


ENDEX2 


fBR IF ERROR 


4443 


032360 


005200 








INC 


RO 


( BUMB INDEX 


4444 


032362 


022700 


000005 






CMP 


*5,P0 


|5 * NAKS BAD CRC 


4445 


0323S6 


001006 








BNE 


3$ 


; BR IF NOT 5 


444ft 


032370 


122760 


000013 


035030 




CMPB 


*13fBASE(R0) 


I SHOULD BE 13 ERRORS 


4447 


032376 


001017 








BNE 


ENDEX2 


(BECAUSE OF RESUME 


444P 


032400 


005200 








INC 


RO 


j BUMP INDEX 


4449 


032402 


000763 








BR 


2« 


t BR 


4450 


032404 


022700 


000011 




351 


CMP 


su.se 


j DONE ALL ERROR COUNTERS YET? 


445! 


032410 


001360 








BNE 


2f 


1 BR IF NO 


4452 


032412 


122760 


000013 


035030 




CMPB 


*13.BASE(R0) 


•13 ERRORS BECAUSE OF RESUME 


445 3 


032420 


001006 








BNE 


ENDEX2 


( BR IF NOT OK 


4454 


032422 


005200 








INC 


RO 


j NEXT BASE TABLE LOCATION 


4455 


032424 


122760 


000013 


035030 




CMPB 


*13,BASE(R0) 


(13 ERRORS BECAUSE OF RESUME 


445* 


032432 


001001 








BNE 


ENDEX2 


( BR IF NOT OK 


4457 


032434 


104400 






ENDEXlt 


SCOPE 




j SCOPE THIS TEST 


4458 


032436 


113737 


035033 


001250 


ENDEX2: 


MOVB 


BASE+3,TEMP2 


1 SAVE ALL ODD ADDRESSES 


4450 


032444 


113737 


035035 


001252 




MOVB 


BASE+5.TEMP3 


(FOR TYPEOUT 


4460 


032452 


113737 


035037 


001254 




MOVB 


BASE+7.TEMP4 




4461 


032460 


113737 


035041 


001256 




MOVB 


BASE+11.TEMP5 




446? 


032466 


104017 








HLT 


17 


|NON ZERO ERROR COUNT 


446' 


032470 


000761 








BR 


ENDEX1 


(GET OUT 


446* 


032472 


022700 


000017 




ENDEX3: 


CMP 


I17.R0 


f ALL DONE INPUT? 


4465 


032476 


001002 








BNE 


SCAN1 


(BR IF NO 


4466 


032500 


000137 


032046 






JMP 


SCAN2 


(BR IF YES 


4467 


032504 


005337 


001416 




SCANU 


DEC 


TEMP 


( DECREMENT DELAY COUNTER 






001 402 








BEQ 


IS 


( BR IF ZERO 


4460 


032512 


000137 


032020 






JMP 


SCAN 


fBR IF NOT DONE DELAY 


4470 


032516 


005337 


001250 




1St 


DEC 


TEMP2 


(DEC DELAY COUNT 


4471 


032522 


001 102 








BFQ 


2$ 


( BR IF DONE DELAY 


4472 


032524 


0001 37 


032020 






JMP 


SCAN 


(BR IF NOT DONE 


4471 


032530 


104014 






?Sl 


HLT 


14 


( ERROR HUNG 


4474 


032532 


000740 








BR 


ENDEX1 


j GET OUT 


4475 


















4476 












(INPUT 


INTERRUPT SERVICE ROUTINE 


4477 
447B 


032534 


022700 


000017 




IISR( 


CMP 


#17, RO 


(PROC. ERROR DONE? 


4479 


032540 


001421 








BEQ 


12S 


; BR IF YES 


44P0 


032542 


005737 


033450 






TST 


RESUME 


(IS THIS A RES'JnE INTERRUPT 


44S1 


032546 


001432 








BEQ 


8$ 


I BR IF NO 


4482 


032550 


032711 


000002 






BIT 


#BIT1,(R1) 


(CNTL OR BASE? 


44S ^ 


032554 


001407 








BEQ 


13$ 


( BR IF CNTL I 


44P 4 


032556 


012761 


035030 


000004 




MOV 


#BASE,4(R1) 


1 LOAD BASE ADDRESS 


4485 


032564 


012761 


010000 


000006 




MOV 


#BIT12,6(R1) 


(WITH RESUME BIT SET 


4496 


032572 


000404 








BR 


12$ 


(CONTINUE 


44A7 


032574 


005061 


000006 




1 38 1 


CLP 


6CR1) 


(SELECT FULL DUPLEX 


44PO 


032600 


005037 


033450 






CLR 


RESUME 


(CLEAR RESUME FLAG 


44(?Q 


012604 


5 427! 1 


000040 




12S3 


8ICB 


•40, (Rl) 


(CLEAR RQI 


449.1 


032610 


105711 








TSTB 


(Rl) 


(IS RDI GONE? 


4491 


032612 


10077S 








BMI 


.-2 


(BR IF NO 


4492 


032614 


005737 


033450 






TST 


RESUME 


J BASE OR CNTL I? 


44Q3 


032620 


001403 








BEQ 


14$ 


| BR IF IT WAS CNTL I 
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4494 


032622 


15271 1 


000041 






BISB 


141, CRl) 




|ASK FOR CNTL I 


449S 


032676 


000002 








RTI 






J RETURN 


4496 


032630 


105011 






14$: 


CLRB 


(PI) 




;CLEAR BSEL 


4497 


032632 


OO0OO2 








RTI 






j RETURN 


4490 


132634 


005700 






e$i 


TST 


RO 




jFIRST TIME HERE? 


4499 












BPL 


7* 




(LOAD BASE IF MINUS 


4500 


032640 


012761 


035030 


000004 




MOV 


#BASE, 4CR15 


t SET UP BASE ADDRESS 


4501 


032646 


005061 


000006 






CLP 


6{R1) 




(CLEAR COUNT 


4507 


032652 


000434 








BR 


3$ 




(CONTINUE 


4503 


032654 


001003 






7$l 


BNE 


1$ 




(CNTL I FULL DUPLEX IF 


4504 


032656 


005061 


000006 






CLR 


6CR1) 




(SELECT FULL DUPLEX 


4505 


032662 


000430 








BP 


3$ 




(CONTINUE 


4506 


032664 


032700 


000010 




IS! 


BIT 


IBIT3.R0 




(XMIT? 


4507 


032670 


001 01 3 








BNE 


2$ 




(BR IF YES 


450B 


13267? 


000241 








CLC 






(CLEAR CARRY 


4509 


032674 


006100 








ROL 


RO 




(MAKE RO EVEN 


4510 


032676 


016O61 


033452 


000004 




MOV 


RECBA(RO), 


4(P1) 


(LOAD REC BUFFER 


451 1 


032704 


016061 


033620 


000006 




MOV 


RCNTABCRO) 


,6(R1) 


(LOAD COUNT 


451?. 


032712 


000241 








CLC 






(CLEAR CARRY 


4513 


032714 


006000 








ROR 


RO 




(GET RO BACK 


451 4 


032716 


00041 2 








BR 


3$ 




(CONTINUE 


4515 


032770 


000241 






26: 


CLC 






(CLEAR CARRY 


4516 


032722 


0061 00 








POL 


RO 




(MAKE IT EVEN 


4517 


032724 


016061 


033452 


000004 




MOV 


XMITBA(RO) 


.4(R1) 


(LOAD XMIT BUFFER 


451 9 


032732 


016061 


033620 


000006 




MOV 


RCNTAB(RO) 


,6(R1) 


(LOAD COUNT 


4519 


"32740 


000241 








CLC 






(CLEAR CARRY 


4520 


032742 


006000 








ROR 


RO 




(PUT IT BACK 


4521 


032744 


1 42711 


000040 




3$i 


BICB 


•40, CRl) 




(Clear rqi 


4527 


032750 


105711 








TSTB 


CRl) 




(WAIT FOR 


4523 


032752 


100776 








BMI 


.-2 




(RDI TO GO AWAY 


4524 


032754 


005200 








INC 


RO 




(INC COUNT 


4575 


032756 


001003 








BNE 


6$ 




(IF ASK FOR CNTL I 


4526 


032760 


152711 


000041 






BISB 


Ml. CRl) 




1 ASK FOR CNTL I 


4577 


032764 


000002 








RTI 






) RETURN 


452R 


032766 


022700 


000017 




6St 


CMP 


#17,R0 




t DONE YET? 


4529 


032772 


00141 1 








BEQ 


4$ 




I BR IF YES 
















kBTTl -Drt 




• XMTT7 


4531 


033000 


001003 








BNE 


5$ 




(BP IF YES 


453? 


033002 


152711 


000044 






BISB 


M4, CRl) 




(ASK FOR REC BA/CC 


45 3 5 


033006 


000002 








RTI 






(RETURN 


4534 


03301 


15271 1 


000040 




5S( 


BISB 


•40. (PI) 




(ASK FOP XMIT BA/CC 


4535 


033014 


000O02 








RTI 






(RETURN 


45 36 


033016 


022737 


000001 


034704 


4$: 


CMP 


* 1 . FLAG 




(1 BYTE MESS? 


4537 


O33024 


001403 








BEQ 


15$ 




(BR IF YES 


45 3R 


033076 


157711 


000046 






BISB 


»46, CRl) 




(FORCE PROC, ERROR 


4530 


033032 


000002 








RTI 






( RETURN 


4540 


033034 


1 05011 






15$: 


C1.RP 


(Rl) 




( CLR SELO 


4541 


033036 


000002 








RTI 






(RETURN 


454? 




















454 5 












lOUTPUT 


INTERRUPT 


SERVICE ROUTINE 


4544 




















4545 


O33O40 


037761 


000001 


000002 


nisR: 


BIT 


«BIT0,2(R1) 


(IS THIS AN ERROR? 


4S16 


033046 


001 461 








BEQ 


1 S 




jBP IK NO 


4547 


033050 


005737 


034704 






TST 


FLAG 




(IS THIS SHUT DO«N INTERRUPT? 


454R 


03305* 


noionf, 








8*-'E 


9$ 




1 BP IF HO 


4549 


03 50S6 


075 7 37 


5 4 7 4 






iir 


Ft AG 




(YES y AKE FLAG NON-ZEPO 
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4550 


033062 


022761 


001000 


000006 




CMP 


#BIT9,6(R1) 


) SHUT DOWN BIT SET? 


4551 


033070 


001516 








BEQ 


10$ 


; YES ALL IS OK 


4557 


033072 


022700 


000017 




9$) 


CMP 


#17, RO 


(RESUME INTERRUPT? 


4553 


033076 


001033 








BNE 


1 1 $ 


j BR IF NO 


4554 


033100 


022761 


001000 


000006 




CMP 


«BIT9,6(R1 ) 


|PROC, ERROR BIT SET? 


4555 


033106 


001027 








BNE 


1 1 $ 


(BR IF NO 


455ft 


033110 


005200 








INC 


RO 


(BUMP COUNTER (TO 20) 


4557 


033112 


012711 


040000 






MOV 


#BIT14,(Ri) 


j MASTER CLEAR DEVICE 


455? 


0331 16 


032737 


100000 


001366 




BIT 


#BIT15,STAT1 


jDMC OR KMC? 


4550 


033124 


001 405 








BEQ 


.♦14 


j BR IF DMC 


4560 


033126 


012711 


100000 






MOV 


#BIT15,(R1) 


j SET RUN ON KMC 


4561 


033132 


105227 


000000 






INCB 


#0 


) DELAY ON KMC 


456? 


033136 


001375 








BNE 


.-4 




4563 


0331 40 


012737 


177777 


033450 




MOV 


#•1, RESUME 


(SET RESUME FLAG 


4564 


033146 


00571 1 








TST 


CRD 


jRUN SET? 


4565 


033150 


100376 








BPL 


.-2 


j BR IF NO 


4566 


033152 


012761 


OO0100 


000002 




MOV 


#BIT6,2(R1) 


(SET IEO 


4567 


033160 


052711 


004143 






BIS 


#4143, CR1J 


;ASK FOR PORT(BASE REQJ 


4568 


033164 


000002 








RTI 




I RETURN 


4560 


033166 


016137 


000004 


001252 


11$) 


MOV 


4{R1),TEMP3 


(SAVE FOR ERROR TYPEOUT 


4570 


033174 


016137 


000006 


001254 




MOV 


6CR1),TEMP4 


jSAVE FOR ERROR TYPEOUT 


4571 


033202 


104016 








HLT 


16 


jCNTL ERROR 


457-? 


033204 


022626 








CMP 


CSPJ+, CSP)+ 


j ADJUST STACK 


4573 


033206 


000137 


032434 






JMP 


ENDEJC1 


( GET OUT 


4574 


033212 


032761 


000004 


000002 


1$: 


BIT 


#BIT2.2(Ri) 


1 RECEIVE? 


4575 


033220 


001046 








BNE 


2$ 


(BR IF YES 


4576 


033222 


022761 


033511 


000004 




CMP 


#TBUFF+1,4(R1) 


jXMIT BA CORRECT? 


4577 


033230 


001405 








BF.Q 


4S 


|BR IF OK 


4578 


033232 


022761 


033510 


000004 




CMP 


#TBUFF,4CP1) 


(XMIT BA CORRECT? 


4579 


033240 


001401 








BEQ 


4« 


(BP IF YES 


45RO 


033242 


10401 4 








HLT 


14 


JXMIT BA ERROR 


4581 


033244 


005005 






4ti 


CLR 


R5 


jR5 IS INDEX REG 


4582 


033246 


026561 


033640 


000006 


5SI 


CMP 


XCNTAB(R5)»6CRi) 


(IS CHAR COUNT OK? 


4583 


033254 


001406 








BEQ 


6$ 


jBR IF YES 


45*4 


033256 


062705 


000002 






ADD 


#2,R5 


(INC INDEX 


4585 


033262 


022705 


000016 






CMP 


#16, R5 


jDONE LIST YET? 


4586 


033266 


001367 








BNE 


5$ 


jBR IF no 


4587 


033270 


104014 








HLT 


14 


jXMIT COUNT ERROR 


45B = 


033272 


016162 


000004 


033712 


651 


MOV 


4(R1),XDNTAB(R2) 


jSTORE XMIT DONE BA 


4589 


033300 


06 27 7 


000002 






ADD 


I2.R2 


|INC INDEX 


4590 


033304 


016162 


000006 


033712 




MOV 


6CR1),XDNTAB(R2) 


f STORE XMIT DONE CC 


4591 


033312 


062702 


000002 






ADD 


#2,R2 


(INC INDEX 


4592 


033316 


J42761 


000207 


000002 




BIC8 


#207,2(R1) 


(CLEAR RDO 


4593 


033324 


000007 








RTI 




(RETURN 


4504 


033326 


10501 1 






10$) 


cijRB 


CB13 


| CLEAR SELO 


4595 


033330 


105061 


000002 






CLRB 


2{Ri) 


(CLEAR SEL2 


45<>6 


033334 


000002 








RTI 




1 RETURN 


4597 


"33336 


012705 


000002 




2«: 


MOV 


#2,RS 


(SET UP R5 AS INDEX 


45°8 


033342 


026561 


033452 


000004 




CMP 


RECBA(R5),4{R1) 


(COMPARE WITH LIST OF CORRECT 


459" 


033350 


00J406 








BEQ 


38 


jBR IF OK? 


4600 


03335? 


062705 


000002 






ADD 


#2,R5 


( INCREMENT R5 


4601 


033356 


022705 


000020 






CMP 


•20, P5 


(END OF LIST? 


4602 


033362 


001367 








BNE 


2$+4 


(BR IF NO 


4603 


033364 


104014 








HLT 


14 


(REC BA ERROR 


460" 


033366 


005005 






3St 


CLR 


R5 


|R5 IS INDEX 


4605 


033370 


026561 


033640 


000006 


76) 


CMP 


XCNTAB(R5),6(R1) 


(CHECK FOR CORRECT PEC COUNT 



DZDMM 


M»CY1 1 


27(1006) 


14-OEC 


-76 16)32 


page ee 






ozr"*. 


PI 1 09 


-DEC-76 


14)59 


FREE PUNNING TESTS 




4606 


033376 


001 406 








BEQ 8$ 


J BR IF YES 


4607 


033400 


062705 


000002 






ADD #2,R5 


j INCREMENT R5 


46 01 


033404 


022705 


000016 






CMP #16, R! 


( END OF LIST? 


4609 


033410 


001 367 








BNE 78 


(BR IF NOT 


461 n 


033417 


1 04014 








HLT 14 


;REC COUNT ERROR 


461 1 


033414 


016164 


000004 


033656 


s$: 


MOV 4( Rl ) , RDNTAB (R4) 


(STORE PEC BA 


46 1 2 


033422 


062704 


000002 






ADD #2,R4 


(INC INDEX 


461 3 


033426 


016164 


ooooos 


033656 




MOV 6(R1),RDNTAB(R4) jSTORE REC DONE CC 


461 4 


033434 


062704 


000002 






ADD (2.R4 


(INC INDEX 


4615 


033*40 


142761 


000207 


000002 




BICB #207,2CR1) 


(CLEAR RDO 


4616 


033446 


000002 








RTI 


j RETURN 


4617 
















461 9 
















461 o 












I BUFFERS 




4670 
















4621 


033450 


000000 






RESUME) 







4622 


033452 








PECBA) 






4623 


033452 


0000)7 






XMITBAl 


.BLKH 17 iREC i XMIT BA LIST 


4621 
















4626 


033510 








TBUFF) 




(TRANSMIT DATA 


4676 


033510 


000 


001 


002 


.BYTE 


0,1,2,3,4,5,6,7 




4677 


03351 3 


003 


004 


005 








4628 


033516 


006 


007 










4629 


033520 


010 


Oil 


012 


.BYTE 


10,11,12,13,14,15,16,17 




4630 


033523 


013 


014 


015 








4631 


033526 


016 


017 










46 37 


033530 


020 


021 


022 


.BYTE 


20,21,22,23,24,25,26,27 




4633 


033533 


023 


024 


025 








463 * 


033536 


026 


027 










4635 


033540 


030 


031 


032 


.BYTE 


30,31,32,33,34,35,36,37 




4636 


033543 


033 


034 


035 








4637 


033546 


036 


037 










4638 


033550 


040 


041 


042 


.BYTE 


40,41,42,43,44,45,46,47 




4639 


033553 


043 


044 


045 








4640 


033556 


046 


047 










464! 


033560 


050 


051 


052 


.BYTE 


50,51,52,53,54,55,56,57 




4647 


033563 


05 3 


054 


055 








4643 


033566 


056 


057 










4644 


033570 


060 


061 


062 


.BYTE 


60,61.62,63,64,65,66,67 




4645 


033573 


063 


064 


065 








46 16 


033576 


066 


067 










4647 


O3360O 


07 


071 


072 


.BYTE 


70,71,72,73,74,75,76,77 




464f 


033603 


073 


074 


075 








4649 


033606 


076 


077 










4650 


033610 


100 


101 


102 


, BYTE 


100,101,102,103,104,105, 


106,107 


465 1 


3 361 3 


103 


104 


105 








465? 


033616 


1 06 


107 










4653 
















4654 


033620 


ooonio 






RCKTABl 


.BLKW 10 


(RECETVF. COUNT TABLE 


46S5 


3 3 610 


0O0O07 






XCNTABj 


,PLKW 7 


(TRANSMIT COUNT TABLE 


465t 
















4657 


033656 


r 1 f, 






RUNTAB) 


,PLKW 16 


! RECEIVE DONE TABLE (BA/CC) 


4655 


0337 1 7 


1 6 






XriNTAB: 


, BLK* 16 


(XMIT HOME TABLE ( BA /CC 3 


46" 
















4660 


3 3 7 4 6 








P'MJFFs 




jP-ECETV^H BUFFERS 


466 1 


033746 








WHIFF 1 ; 


.BI-KR 104 
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466? 


03405? 


000104 


4661 


054156 


000104 


4664 


034262 


000104 


4665 


034366 


010104 


4666 


034472 


0O0104 


4667 


034576 


000104 


4663 


034702 


Q0Q000 


4669 






467 






4671 






4677 






4673 






4671 






4675 


034704 


000000 


467* 


034706 


OOOOOO 


4677 


034710 


ooooon 


4679 


034712 


000044 


4679 


034714 


041101 


46PC 


034722 


044107 


4681 


034730 


047115 


46B2 


034736 


052123 


4681 


034744 


0551 31 


4684 


034752 


032464 


4685 






4686 


034760 


000044 


4687 


034762 


035030 


46S& 






4689 


035030 


035430 


4690 






4601 






4692 






4693 






4691 






4605 


035*30 




469ft 






4697 






469° 


035430 


104414 


4699 


035432 


000400 


4700 


035434 


104414 


4701 


035436 


Ofc32ZO 


4707. 


035440 


104414 


4701 


035442 


060400 


4704 


035444 


000207 


4705 






470ft 






4707 


035446 




470P 






4709 






4710 


035446 


104414 


47 11 


035450 


000401 


471 7 


035452 


000207 


471 1 






471 4 






4715 


35 45 4 




4716 






4717 







042103 
045111 
050117 
053125 
030460 



06900 
07000 
07100 
07200 
07300 
07400 
07500 
07600 
07700 
07800 

043105 07900 

046113 

051121 

054127 

031462 

034470 

08000 
08100 
08200 
08300 
08400 
00300 
00400 
00500 
00600 
00700 
00800 
00900 
01000 

01200 

01400 

O1S00 
01700 
01800 
01900 
02000 
02100 
02200 

02400 
02500 
02600 
02700 
02800 
02900 
03000 



RBUFF2 I 
PBUFF3 1 
FBUFF41 

RBurrs: 

RBUFF6 1 
RBur F7 i 
RBUFFEl 



.BLKB 104 

.BLKB 104 

.BLKB 104 

.BLKB 104 

.BLKB 104 

.BLKB 104 



j END OF RECEIVER BUFFERS 



t BUFFER AREA 



FLAG! 

TFLAGj 

RFLAG: 

TCOUNTl 44 

TBUFj .ASC1I/ABCDEFGHIJKLMN0PQRSTUVWXYZ01 23456789/ 



.EVEN 

PCOUNTl 44 
RBUFt ,=.+46 
.EVEN 

BASE I ,".+256, 



t SUBROUTINES 



I THIS SUBROUTINE CLEARS THE CSZ BITS AND THE BR 



ROMCLK 
000400 
ROMCLK 
063220 
ROMCLK 
050450 
RTS PC 



j NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
»BR„0 

1 NEXT WORD IS INSTRUCTION , ROMCLK PC=5304 
}SPCO)_BR 

j NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
•BR^SPCOl+BR 



»THIS SUBROUTINE SETS BRO BIT 



ROMCLK 
000401 
RTS PC 



} NEXT WORD IS INSTRUCTION, ROMCLK PC=S304 
>BF„001 



jTHIS SUBROUTINE SETS BR1 BIT 



MACY11 27(1006) 14-DEC-76 



DZDMH, PI 1 09 


-OEC-76 


471 P 


035454 


104414 


471 9 


035456 


000407 


4720 


035460 


000207 


47?1 












472' 


035462 




4724 






4775 






4726 


035462 


10441 4 


4727 


035464 


0O0420 


4721* 


035466 


000207 


4770 






4710 






47 31 


03547P 




4737 






47 33 






473 4 


035470 


104414 


4735 


035472 


OO0600 


4736 


035474 


000207 


47 37 






47JS 






47 3« 


035476 




47 4 






4741 






47 42 


035476 


104414 


4743 


035500 


000777 


4744 


035502 


1044] 4 


4745 


035504 


063220 


4746 


035506 


104414 


47 47 


035510 


060400 


474" 


035S1 7 


000207 


4745 






4750 






4751 


035514 




475? 






4754 


035514 


104414 


4755 


035516 


000777 


475ft 


035520 


000207 


4757 






475ft 






4759 


035522 




4760 






4761 






4767 






4763 


035522 


017600 


4764 


035526 


062716 


4765 


035532 


0)271 1 


4766 


035536 


016005 


4767 


035542 


016104 


476« 


035546 


0O07O7 


476 ? 






4770 


035550 




477! 






477 ? 







OOOOOO 
000002 
002000 
01 1766 
OOQ006 



16t32 PAGE 90 
SUBROUTINES 



03200 
03300 
03400 
03500 
03600 
03700 
03800 

04000 
04100 
04200 
0430O 
04400 
04500 
04600 
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04800 
04900 
05000 
05100 
05200 
05300 
05400 

05600 

05800 

06000 
06100 
06200 
06300 
06400 
06500 
06600 

06800 
06900 
07000 
07100 
07200 
07300 
07400 
07500 
07600 
07700 
07800 
07900 
080C0 
0S10O 
08200 
OS300 
08400 
R 5 



ROMCLK 
000402 
RTS PC 



J NEXT WORD IS INSTRUCTION, 
»BR_002 



JTHIS SUBROUTINE SETS BR4 BIT 



ROMCLK 
000420 
RTS 



} NEXT WORD IS INSTRUCTION, 
>BR„020 



ROMCLK PC=5304 



ROMCLK PC=5304 



SETBR7 I 



JTHIS SUBROUTINE SETS BR7 BIT 



ROMCLK 
000600 
RTS 



J NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
|BR_200 



j THIS SUBROUTINE SETS THE C BIT 



ROMCLK 
000777 
ROMCLK 
063220 
ROMCLK 
060400 
RTS 



j NEXT WORD IS INSTRUCTION, ROMCLK PC»5304 
|BR_377 

I NEXT WORD IS INSTRUCTION, ROMCLK PC = 5304 
jSPCO)_BR 

I NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 
;BR_SP(0)+BP 



jTHIS SUBROUTINE SETS THE Z BIT 



ROMCLK 
000777 
RTS 



iN£Xt «"uhp is I" 
»BR_377 



I KUL I JLt ji» , nure^uK rC- 5 



(THIS SUBROUTINE LOADS R5 WITH EXPECTED ROM CONTENTS 
I AND LOADS R4 WITH ACTUAL POM CONTENTS 



MOV 


3(SP),R0 


t index for compare 


ADD 


*2, (SP) 


I ADJUST STACK 


MOV 


IBIT10, CUT ) 


;SET ROMO 


MOV 


RnMMAP(R0),P5 


;PUT "EXPECTED" IN R5 


MOV 


6(P1),R4 


»PUT "FOUND" IN R4 


RTS 


PC 


j RETURN 


;THTS 


SUBROUTINE T.OADS 


P4 WITH THE LOWEST 


; fl BIT 


5 OF THF CPJ" PC 
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1ZZ, 


035550 


01 7 605 


000000 




08700 




MOV 


9(SP),RS 


[GOOD DATA 






a->kai ^ 


ft Aft ft A O 

on vug/ 




08800 




ADD 


•2> (SP) 


[ ADJUST STACK 






:'''] J 






a«««S 




CLR 


(Rl) 






035-62 


0527 1 1 


000400 




09000 




BIS 


IBIT8, (Rl) 


■ f^rn^v TucpsTiritrnu tm rpm that u&c 


477R 










2«i a« 








■ TTTVOITn TD TT T niDC AD UTTH ROM PC 












09200 




CLB 


(Rl) 


[CLR BITS 


A7Rn 


nlciTft 


10 4 414 










POMCLK 




47 1 


035572 


?ti 4 






09400 




061225 




■ unv DO Tn DriDT K 
J MOV BK 1U ruKj 3 


478? 


035574 


116104 


000005 




09500 




MOVB 


5(R1)» R4 


[PUT "FOUND" IN P4 


*Z? 3 


035600 


000207 






09600 




RTS 


PC 


[ RETURN 


4784 










09700 










4785 


035602 








09800 


WRQM I 


















09900 




[ THIS 


SUBROUTINE WRITES 


mur dAumib turn Tub' roftM 
TML FQMMAr 1WTU 1MB. tr»" 


TOT 










10000 








470 


035602 


3 27 37 


1000 00 


001 366 


10100 




BIT 


#BIT15iSTAT1 


> BE SURE DMC HAS CRAM 


478 


03561 


001420 






1 0200 




BEO 


2$ 


{SKIP IF NO CRAM 


47 90 


03561 2 


005000 






1 0300 




CLP 


PO 


(R0*CRAM ADDRESS 


*Z!?i 


035614 


012702 


011766 




10400 




MOV 


♦ROMKAP, R2 


7 P2 POINTS TO ROMMAP 


479? 




012711 


002000 




1 0500 


IS ! 


MOV 


tBITlOp (Rl ) 


[SET BOMO 


4793 


035624 


010061 


000004 




1 0600 




MOV 


POf 4CR1) 


[LOAD CRAM ADDRESS 








000006 




10700 




MOV 


(B2)+»6(R1) 


• T nun unnn Trt otr UDTTTPU 
[LOAD WUKD lu Db WKXlibN 


* Q " 


n1*Ai4 


05271 1 


020000 




10800 




BIS 


IBIT13, (PI 3 


■ UDT1<r T T 1 




nJKt An 


a ft e *5 n ft 

u U 3 / u u 






1 




INC 


RO 


• lJI^v'1 , ftnrtBirQC 


4707 
*. 






ft ft ^ ft ft ft 




1 !!! 




CMP 


#2000, RO 






035646 


nni ifcj 












IS 


• &d tip iin 


: 


35650 


00501 1 






11200 




CLP 


(Rl) 


fCLEAR SELO 


Aono 


035652 


ft ft m at 






1 1 300 


2$ • 


RTS 


PC 


j RETURN 


AO 1 










1 1 400 










4009 
* ^ 










1 1500 












035654 








1 1 600 


MEMSETl 








a 










1 1700 




[THIS 


SUBROUTINE LOADS CRAM WITH SPECIAL INSTRUCTIONS 


40 










1 1 800 




j FOP THE CRAM JUMP TEST 


, ALL CRAM LOCATIONS ARE LOADED 


AOnt 










1 1 900 




jWITH 


INSTRUCTIONS THAT 


HOVE A 37 TO THE BR, EXCEPT THE 


AO - 7 

Vane 










1 ?i Sa 




(FOLLOWING CPAM ADDRESSES. 0,1,4,7,525,1777, THESE LOCATIONS 
















[CONTAIN INTRUCTIONS WHICH LOAD THE BR WITH THE LOWEST 












12200 




(8 BITS OF THAT CRAM ADDRESS, 


AO I 










12300 














005000 






1 2400 




CLP 


RO 


TRO = CRAM ADDRESS 


ad n 






002000 




12500 


1 * 1 


MOV 


IBXTlOrCRl) 


jSET ROMO 




035662 


010 061 


000004 




12600 




MOV 


R0,4(R1) 


; LOAD CRAM ADDRESS 


AO 1 d 


35666 




000437 


000006 


12700 




MOV 


1437, 6(R1) 


; LOAD INSTRUCTION 


1 * 
4 _ J 




0527 1 1 


020000 




12800 




BIS 


»BIT13,CR1) 


jWRITE INSTRUCTION IN CPAM 


48 1 r 


35700 


005200 






1 2900 




INC 


RO 


I NEXT ADDRESS 




?«f Z5? 


022700 


002000 




1 




CMP 


#2000, RO 


j DONE YET? 


40 1 K 


35706 


JJ n * 






13100 




BNE 


IS 


thF IF NO 


AID 




005000 






1 3200 




CLR 


RO 


5 INDEX REGISTER 


40->r 
* 1 


n «i 1 t 
n^57i fc 


ni tlii 


0O2O00 




1 3300 


2S ! 


MOV 


»BIT10,CR1) 


[SET ROMO 










000004 


1 \tnn 




MOV 


CRAMA(R0),4(P1) 


(LOAD CRAM ADDRESS IN SEL4 


4R97 


n35794 


ni fins 1 


035766 


Aft AftftC 






MOV 


INSTU(P.0),6(R1) 


| LOAD INSTRUCTIIN TO BE WRITTEN 


48? ^ 


357 32 


05271 1 


A^ ft ft ft ft 




1 3600 




BIS 


#BIT13.(RI) 


jWRITE CRAMI 


4 P. ? 4 


035736 


0057 2 fl 






1 3700 




TST 


(P0) + 


t NEXT 


4P25 


035740 


022700 


00001 4 




13800 




CMP 


I14.R0 


; DONE YET? 


48?* 


035744 


001362 






13900 




BNE 


2S 


j BR IF NO 


4P?7 


035746 


00501 1 






14000 




CLR 


(Rl) 


jCLEAP ALL BITS 


4«?s 


035750 


000207 






14100 




RTS 


PC 


f RETURN 


40 ;c 










14200 











DZD"H MHCY11 27(1006) 14-DEC-76 16|32 PAGE 92 PAGEl 0237 



DZD v n,Pll 09 


-DFC-76 


14:59 




SUBROUTINES 








4P 30 


035752 


000000 


oooooi 


000004 


14300 


CRAMAl 


,t(OPD 


0,1,4,7,1777,525 


48 31 


035760 


O00007 


001777 


000525 












4B3? 


035766 


000400 






14400 


INSTUJ 


000400 


>BFU0 




4 u 3 * 


"35770 


000401 






14500 




000401 


»BR_1 




4« 31 


035772 


000404 






14600 




000404 


»BR_4 




4«35 


035774 


000407 






14700 




000407 


|BR_7 






035776 


000777 






14800 




000777 


tBR-377 




4P 17 


036000 


000525 






14900 




000525 


»BP_125 




4B3« 










15000 










4P39 










15100 










4s ;o 


036002 








15200 


BASELDt 








4R41 










15300 




?THIS 


SUBROUTINE LOADS 


THE DMC WITH A BASE ADDRESS 


4P4V 










15400 




: AND PUTS DMC INTO FULL 


-DUPLEX MODE 


4843 










15500 












036002 




04C050 




15600 




MOV 


IBTT1 4 , f P 1 1 


t MASTER CLEAR 


4B45 


036006 


032737 


100000 


001366 


15700 




BIT 


#BIT15,STAT1 


jCRAM? 


4H16 


036014 


001 402 






15800 




BEQ 


,+6 


jBP IF NO 


4P47 


03601 6 


012711 


100000 




15900 




MOV 


»BITI5,(R!) 


?IF CRAM SET RUN" 


404P 


036022 


105227 


000000 




16000 




INCB 


«0 


t DELAY 


484 9 


036026 


001375 






16100 




BN'E 


,-4 


; BR IF NOT DONE DELAY 


4P50 


03603" 


005711 






16200 


1$: 


TST 


(Rl) 


JIS RUN SET? 


4851 


036032 


100376 






16300 




BPL 


1$ 


1 BR IF NO 


4852 


036034 


052711 


004000 




16400 




BIS 


»BIT11,(R1) 


>SET LU LOOP 


4853 


036040 


152711 


000043 




16500 




BISB 


•43, (Rl) 


1 BASE REQUEST 


4854 


036044 


105711 






16600 


2$: 


TSTB 


(Rl) 


) RDY I SET? 


4S55 


036046 


1O0376 






16700 




BPL 


23 


| BR IF NO 


4B5*> 


036050 


012761 


035030 


000004 


16800 




MOV 


*BASE,4(P1) 


jLOAD BASE ADDRESS 


4857 


036056 


005061 


000006 




16900 




CLR 


6(R1) 


jCLEAP CC 


4P5P 


036062 


142711 


000040 




17000 




BICB 


MO, (Rl) 


jCLEAP ROI 


4859 


036066 


105711 






17100 


381 


TSTB 


(Rl) 


(RDY I CLEAR? 


4860 


036070 


100776 






17200 




BMI 


3S 


(BR IF NO 


4P61 


036072 


152711 


000041 








RISB 


•41, (Rl) 


(ASK FOR CNTL I 


486? 


036076 


105711 








64s: 


TSTB 


(Rl) 


(WAIT FOR RDI 


4P63 


036100 


1 00376 










BPL 


64S 


(BR IF NOT SETY 


4864 


036102 


005061 


000006 








CLR 


6(R1) 


I SET FULL DUPLEX 


4865 


0361 06 


1427U 


000040 








BICB 


#40, (PI) 


(CLEAR ROI 


4866 


0361 1 2 


105711 








65s: 


TSTB 


(Rl) 


(RDI UP? 


4867 


0361 14 


100776 










BMI 


65$ 


[BR IF YES 


4868 


0361 16 


000707 






17400 




RTS 


PC 


[RETURN 


4864 










17500 










4871 


036120 








17600 


BASELH: 








4P71 










17700 




»THIS 


SUBROUTINE LOADS 


THE DMC WITH A BASE ADDRESS 


4P72 










17800 




I AND PUTS DMC INTO HALF 


-DUPLEX MODE 


4P7 ? 










17900 










4874 


036170 


012711 


040000 




18000 




MOV 


KBIT14, (Rl ) 


I MASTER CLEAR 


487* 


036124 


032737 


1O0O00 


001366 


18100 




BIT 


»BIT15iSTATl 


(CRAM? 


487*. 


0361 32 


001 402 






18200 




BEQ 


. + 6 


[BR IF NO 


4877 


0361 34 


01271 1 


l ooooo 




18300 




MOV 


HBIT15, (R1 ) 


[IF CRAM SET RUN 


4B7B 


36140 


105227 


000000 




18400 




I NCR 


#0 


[DELAY 


4879 


0361 44 


0"1 375 






18500 




BNE 


.-4 


[BR IP" NOT DONE DELAY 


4?o« 


036146 


0057 1 1 






1 8600 


1 Si 


TST 


(PI) 


[ IS PUN SFT? 


48H1 


36150 


1 00376 






1 8700 




BPL 


IS 


;BR IF NO 


4PS3 


03615? 


05?71 1 


004O0O 




1 8800 




p;s 


KHIT1 1 , (Rl 1 


[SET I,U LOOP 


4P a i 


036156 


15 2711 


P0OO4 } 




1 B90O 




FT SP 


•43, (PI ) 


[BASE Pf QUEST 


4BS4 


n 36]h? 


1 057 1 1 






1 <30"0 


?S : 


TSTB 


(PI) 


;PDY I SET? 


4«S5 


036164 


1 3 7 6 






19100 




PPI, 


2S 


;RP T Y •;(! 
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4896 


036166 


012761 


035030 


000004 


19200 




4887 


036174 


005061 


000006 




19300 




4698 


036200 


142711 


000040 




19400 




4889 


036204 


S 057 1 i 






19500 


3si 


4890 


036206 


100776 






19600 




4891 


036210 


152711 


000041 








489? 


036214 


1057H 








64$! 


489? 


036216 


100376 










4894 


036220 


012761 


002000 


000006 






4895 


036226 


142711 


000040 








4896 


036232 


1057J1 








658! 


4897 


036234 


100776 










489? 


036236 


000207 






19800 




4899 










19900 




4900 


036240 








20000 


RFREL 


4901 










20100 




490? 










20200 




4903 


036240 


15271 1 


000044 




20300 




4904 


036244 


10571 1 






20400 


ISt 


4905 


036246 


100376 






20500 




490ft 


036250 


012561 


000004 




20600 




4907 


036254 


012561 


000006 




20700 




490R 


036260 


142711 


000040 




20800 




4909 


036264 


1 05711 






20900 


2s: 


4910 


036266 


100776 






21000 




49U 


036270 


000205 






21100 




491 2 










21200 




491 3 


036272 








21300 


XFRELI 


491 4 










21400 




491 5 










21500 




4916 


036272 


15271 1 


000040 




21600 




491 7 


036276 


105711 






21700 


IS! 


491S 


036300 


100376 






21800 




4919 


036302 


012561 


000004 




21900 




49 2 


036306 


012561 


000006 




22000 




4921 


036312 


1427J 1 


000040 




22100 




4922 


036316 


105711 






22200 


2*1 


4921 


036320 


1 00776 






22300 




492^ 


036322 


000205 






22400 




4925 










00300 






036324 


0*1777 


040522 


020115 


00400 


EMI t 




036345 


377 


051103 


046501 


00500 


EM2 i 




036401 


377 


0511 03 


046517 


00600 


EM 3 J 




036422 


045377 


046525 


020120 


00700 


EH4l 




036436 


047777 


052104 


042440 


00800 


EMS 1 




036470 


044777 


050117 


046440 


00900 


EM6: 




03651 6 


044777 


050117 


046440 


01000 


EM7 t 




036534 


041377 


020122 


044522 


01100 


EMI 1 




036561 


377 


042522 


042503 


01200 


EMIU 




036605 


377 


051106 


042505 


01300 


EM12I 




(136631 


377 


047503 


0521J6 


01400 


EMI 3 1 




036654 


044777 


052116 


051105 


01500 
01600 


EM 1 4 j 




036722 


042777 


050130 


041505 


01700 


DKl : 




036754 


042777 


0501 30 


041505 


01800 


DH2: 




036775 


377 


051440 


046105 


01900 


PHJ: 



MOV 


#BASE,4CR1) 


I LOAD BASE ADDRESS 


CLR 


6 CM) 


(CLEAR CC 


BICB 


140, CRU 


I CLEAR RQI 


7STB 


can 


;RDY I CLEAR? 


BMI 


36 


jBP ir NO 


BISB 


141, CRi) 


f ASK FOR CNTL" I 


TSTB 


CRI) 


» WAIT FOP RDI 


BPL 


64S 


iBR IF NOT SETY 


MOV 


#BIT10,6CR1) 


1 SET HALF DUPLEX 


BICB 


#40, (Rl) 


» CLEAR RQI 


TSTB 


CRI) 


jRDI UP? 


BMI 


85 S 


jBR IF YES 


RTS 


PC 


j RETURN 



j THIS SUBROUTINE LOADS THE DMC WITH A RECEIVE BA/CC 



BISB 


•44, CRI ) 


jREC BA/CC REQUEST 


TSTB 


CRI) 


jRDY I SET? 


BPL 


IS 


1 BR IF NO 


MOV 


(R5)+,4CR1) 


iLOAD REC BA 


MOV 


CR5)+,6CR1) 


t LOAD REC CC 


BICB 


#40, CRI) 


j CLEAR RQI 


TSTB 


CRI) 


lIS RDY I CLEAR 


BMI 


2t 


I BR IF NO 


RTS 


R5 


| RETURN 



I THIS SUBROUTINE LOADS THE DMC WITH A TRANSMIT BA/CC 

BISB »40,(R1) sXMIT BA/CC REQUEST 

TSTB CRI) t RDY I SET? 

BPL II iBR IF NO 

MOV CR5)+,4CR1) } LOAD XMIT BA 

MOV CR5)+,6CR1) ! LOAD XMIT CC 

BICB #40, CRI) jCLEAR RQI 

TSTB CRI) JlS RDY I CLEAR 

BMI 2S iBR IF NO 

RTS R5 1 RETURN 

.ASCIZ <377>/CRAM DATA ERROR/ 

.ASCIZ <377>/CRAH DUAL ADDRESSING ERROR/ 

.ASCIZ <377>/CROM DATA ERROR/ 

.ASCIZ <377>/JUMP ERROR/ 

, ASCIZ <377>/ODT ERROR IN IBUS* REG10/ 

.ASCIZ <377>/I0P MAIN MEMORY TEST/ 

.ASCIZ <377>/I0P MAR TEST/ 

.ASCIZ <377>/BR RIGHT SHIFT TEST/ 

.ASCIZ <377>/RECEIVE DATA ERROR/ 

.ASCIZ <377>/FREE PUNNING ERROR/ 

. ASCIZ <377>/CONTROL OUT ERROR/ 

. ASCIZ <377>/INTERNAL DDCMP ERROR COUNTS NON ZERO/ 

, ASCIZ <377>/EXPECTED FOUND ADDRE55/ 

.ASCIZ <377>/EXPECTED FOUND/ 

.ASCIZ <377>/ SEL4 SEL6/ 
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037016 


041 377 


051501 


025505 02000 
02100 
02200 


DH4: 
.EVEN 


.ASCIZ 


<377>/BASE+3 


037044 


000003 




02300 


DTI: 


3 










02400 




.BYTE 


6,« 


037050 


001264 




02500 




SAVR2 




037052 


006 


004 


02600 




.BYTE 


6,4 


037054 


001270 




02700 




SAVP4 




037056 


00* 


002 


02800 




.BYTE 


4,2 


037060 


001260 




02900 




SAVRO 




037062 


000003 




03000 


DT2: 


3 




037064 


006 


004 


03100 




.BYTE 


6,4 


037066 


001272 




03200 




SAVP5 




037070 


006 


004 


03300 




.BYTE 


6,4 


037072 


001270 




03400 




SAVP4 




037074 


004 


002 


03500 




.BYTE 


4,2 


037076 


001264 




03600 




SAVP2 




037100 


000003 




03700 


DT31 


3 




037102 


006 


004 


03800 




.BYTE 


6,4 


037104 


001272 




03900 




SA VPS 




037106 


006 


004 


04000 




.BYTE 


6,4 


0371 10 


O01270 




04100 




SAVR4 




037112 


004 


002 


04200 




.BYTE 


4,2 


0371 14 


001252 




04300 




TEMP3 




037116 


000002 




04400 


DT4: 


2 




037120 


003 


007 


04500 




.BYTE 


3,7 


037122 


001272 




04600 




SAVR5 




037124 


003 


002 


04700 




.BYTE 


3,2 


037126 


001270 




04800 




SAVP4 




037130 


000002 




04900 


DT5l 


2 




37132 


006 


004 


05000 




.BYTE 


6,4 


0371 34 


001 272 




05100 




SAVP5 




0371 36 


006 


002 


05200 




.BYTE 


6,2 


037140 


001 270 




05300 




SAVP4 




0371 42 


000003 




05400 


DT6: 


3 










(it«nn 




a BYTE 


3,10 


037146 


001272 




05600 




SAVB5 




037150 


003 


004 


05700 




• BYTE 


3,4 


037152 


001 270 




05800 




SAVP4 




037154 


004 


002 


05900 




.BYTE 


4,2 


037156 


O34704 




06000 




FLAG 




037160 


0O0O03 




06100 


DT7 ! 


3 




037162 


003 


010 


06200 




.BYTE 


3,10 


037164 


001 272 




063O0 




SA VPS 




037166 


003 


004 


06400 




.BYTE 


3,4 


037170 


00127 




06500 




SAVR4 




037172 


00 4 


002 


06600 




.BYTE 


4,2 


037174 


001264 




06700 




SAVP2 




037176 


00000 3 




06800 


0T10I 


3 




037200 


"03 


007 


06900 




.BYTE 


3,7 


037202 


001272 




07000 




SAVP5 




"37204 


00 3 


004 


07100 




.PYTE 


3,4 


03720h 


17 7 




07200 




SAVP4 




0372in 


-ir a 


002 


07300 




.»YTF 


6,2 


"372 12 


0"1 25? 




07400 




TEMP3 





DZD«f ! MACY11 27(1006) 14-DEC-76 16)32 PAGE 95 
DZDMH.PU 09-DEC-76 14159 SUBROUTINES 



PAGE! 0240 



037216 


006 


004 


07600 




.BYTE 


6 


,4 


037220 


001252 




07700 




TEMP 3 






037222 


006 


002 


07800 




.BYTE 


6 


,2 


037524 


001254 




07900 




TEMP4 






037226 


000010 




08000 


DT12| 


10 






O37230 


003 


002 


08100 




.BYTE 


3 


,2 


037232 


001250 




08200 




TEMP2 






037234 


003 


002 


08300 




.BYTE 


3 


,2 


037236 


035034 




08400 




BASE+4 






037240 


003 


002 


08500 




.BYTE 


3 


,2 


037242 


0012S? 




08600 




TEMPS 






037244 


003 


002 


08700 




.BYTE 


3 


,2 


037246 


035036 




08800 




BASE+6 






037250 


003 


002 


08900 




.BYTE 


3 


,2 


037252 


001254 




09000 




TEMP4 






0372S4 


003 


002 


09100 




.BYTE 


I 


,2 


037256 


035040 




09200 




BASE* 10 






037260 


003 


002 


09300 




.BYTE 


3 


,2 


037262 


001256 




09400 




TEHP5 






037264 


003 


002 


09500 




.BYTE 


3 


,2 


037266 


035042 




09600 
09700 




BASE* 12 






037270 






09800 


.ERRTABi 






037270 


000000 




09900 











017272 


000000 




10000 











037274 


000000 




10100 











037276 


036324 




10200 


EMI 








037300 


036722 




10300 


DH1 


|HLT 






037302 


037044 




10400 


DTI 








0*7304 


036345 




10500 


EM2 








037306 


036722 




10600 


DH1 


»HLT 






037310 


037044 




10700 


DTI 








037312 


036324 




10800 


EMI 








037314 


036722 




10900 


DH1 


I HLT 






037316 


037062 




11000 


DT2 








037320 


036401 




11100 


EM 3 








037327 


036722 




11200 


DH1 


J HLT 






037324 


037100 




11300 


DT3 








037376 


036422 




11400 


EM4 








017330 


036754 




11500 


DH2 


J HLT 






037332 


037116 




11600 


DT4 








037334 


036*22 




11700 


EM4 








037336 


036754 




11800 


DH2 


J HLT 






"373*0 


037130 




11900 


DT5 








037342 


036436 




12000 


EM5 








037344 


036754 




12100 


DH2 


J HLT 






037346 


0371 16 




12200 


DT4 








037350 


0*6470 




12300 


EM6 








037 352 


036772 




12400 


DH1 


J HLT 







017354 


037142 




12500 


DT6 








037356 


036516 




12600 


EM7 








OJ7360 


036722 




12700 


DH1 


»HLT 




1 


037367 


037160 




12800 


DT7 








037364 


036S34 




12900 


EM10 








0.17 366 


036754 




13000 


DH2 


»HLT 




2 


037370 


037116 




13100 


DT4 
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017372 


"36561 


13200 


EMI J 






037374 


036722 


13300 


DH1 


8HLT 


13 


037376 


037176 


13400 


DT10 






3740O 


036605 


13500 


EM12 






37102 


OOOOOO 


13600 





J HLT 


14 


037404 


oooooo 


13700 









037406 


036605 


13800 


EM12 






037410 


036754 


13900 


DH2 


|HLT 


15 


037412 


037130 


14000 


DT5 






03741 4 


036631 


14100 


EM13 






037416 


036775 


14200 


DH3 


I HLT 


16 


037420 


037214 


14300 


DTU 






037422 


03f>6S4 


14400 


i>* i 4 






037424 


03701* 


14500 


DK4 


t HLT 


J7 


037426 


037226 


14600 


DTI 2 










14700 












14800 








037430 




14900 


CORMAXl 








oooooi 


15400 


.END 
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ADRCNTs 


O04301 


858* 


894» 


903* 




















AUDONE 


002734 


566 


6391 






















AUSTPT 


002446 


5651 


596 


643 




















AUTO.S 


010252 


528 


1343* 






















BASE 


O35030 


3841 
4886 


4441 
4925 


4446 


4452 


4455 


4458 


4459 


4460 


4461 


4484 


4500 


4689* 


BASELT 


36 00 2 


3980 


4036 


4085 


413' 


4' 8" 


4224 


4840* 












BASELM 


036120 


4268 


4870* 






















BINWRD 


004*22 


944* 


947* 


948 


985* 


















BITO = 


000001 


951 


1133 


1134 


3804 


3914 


3929 


3974 


3995 


4030 


4053 


4079 


4099 






4148 


4174 


4192 


4218 


4236 


4262 


4305 


4413 


4545 








BIT1 = 


0O0002 


949 


533 


1127 


1133 


1134 


1503 


4482 












BIT10 s 


002000 


85# 

4894 


1475 


1486 


1682 


1718 


1754 


1770 


1804 


2108 


4765 


4792 


4812 


BIT11 = 


oo4ooo 


84* 


3833 


4852 


4882 


















BIT12 a 


010000 


83* 


1427 


1501 


3807 


3977 


4033 


4082 


4128 


4177 


4221 


4265 


4308 


BIT1 J = 


020000 


82» 


1430 


1478 


1505 


1685 


1721 


1757 


4795 


4815 


4823 






BIT14 = 


040000 


811 


761 


1441 


1443 


1505 


1516 


3818 


3831 


4340 


4557 


4844 


4874 


BIT1S - 


1 00000 


80# 


487 


569 


572 


1414 


1481 


1677 


1712 


1750 


1797 


1832 


1878 






1994 


2036 


2097 


2146 


2202 


2255 


2311 


2367 


2423 


2479 


2535 


2592 






2706 


2763 


2820 


2877 


2938 


3000 


3059 


3121 


3183 


3245 


3307 


3369 






3493 


3555 


3617 


3679 


3741 


3802 


3819 


3821 


3972 


4028 


4077 


4123 






4216 


4260 


4303 


4341 


4343 


4558 


4560 


4788 


4845 


4847 


4875 


4877 


BIT2 s 


00OC04 


93* 


533 


692 


1134 


3908 


3999 


4574 












BIT3 = 


000010 


92* 


1507 


1514 


4506 


4530 
















BIT4 = 


000020 


91* 


1117 


1140 


1142 


4057 
















BITS » 


000040 


90* 


1618 


2047 




















BIT6 = 


oooioo 


89* 


1122 


1123 


1509 


2062 


4360 


4566 












BIT7 b 


0O0200 


88* 


1123 


1240 


1618 




















000400 


87* 


1485 


1496 


1498 


1511 


1513 


1519 


1522 


1579 


2045 


4103 


4152 


BIT9 s 


001000 


86* 


1483 


1485 


1493 


1519 


1522 


1577 


1579 


4196 


4240 


4S50 


4a54 


BH 


006756 


1165* 


1455 






















BRLVL 


01 1720 


1574 


1584 


1592 


1604* 


















BRW 


001640 


698 


784* 






















BPX 


003642 


699 


785* 






















CHPC\T 


014620 


942» 


945 


949 


965* 


983* 


984 














CKSWP 


O07362 


514 


759 


790 


1005 


1190* 
















CKSWP1 


007426 


1200* 


1212 






















CKSWP7 


007440 


1203* 
























CKS*"3 


007444 


1205* 
























CKSWP4 


007450 


1206* 


1214 


1221 




















CKS'*RS 


007554 


1191 


1195 


1230* 




















CLKX 


001242 


171* 
























CLRAU 


035430 


2149 


2162 


2175 


2595 


2608 


2621 


2652 


2665 


7678 


2709 


2722 


2735 






2779 


2792 


2823 


7836 


2849 


2880 


2893 


2906 


2942 


2955 


2968 


3435 






3461 


3497 


3510 


3523 


3559 


3572 


3585 


3621 


3634 


3647 


3683 


3696 






3745 


3758 


3771 


46951 


















CLRTAP 


031 676 


4345* 


4411 


4419 


4436 


















CNECO 


007167 


607 


1165* 






















CNT.* f 


001702 


196 


365* 


486 


488 


490 


1268 


















233* 


604 


713 


720 


722 


724 


1039 


1041 


1100 


1203 






CDNF.Bh 


007125 


602 


1165* 






















CONN 


007016 


1165* 


1432 






















CONTAF 


002710 


611 


624* 






















CONVVs 


104410 


231* 


545 


610 


1055 


1366 
















COR«»X 


037430 


4925* 

























4820 



1927 
2649 
3431 
4172 



2766 
3448 
3709 
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CRAM 
CRAW 4 
CREA" 
CSP 

CSRmap 

CYCLE 

DATS BP 

DATACI.s 

DATA HO 

DELAY = 

DEVAliR 

DEVTAP 

DH1 

DH? 

DH3 

DH4 

DISPLl 

DISPWF 

DMACTV 

DHCV 

DHCROO 

DMCPOl 

DMCP02 

DMCP0 3 

DMCR04 

DMCRO") 

DMCP06 

DHCP07 

DMCR1 o 

DHCH1 1 

DMCP1 ? 

DMCPt 3 

DMCP14 

DMCP15 

DMCP1 * 

DMCSP 
DHCSPh 
DMCTL 
DHHUw 
DMPO* 
DHP06 
DMPT.Vl, 
DMRV5T 
QMS loo 
DMSI'M 
DMS1 02 
DMS1'>3 
DMS1 
DMS1 OS 
DMS1 ■)(- 
DHS10 7 
DMS1 1 
DHS1 i ) 
D*S1 ' > 



006510 
035757 
001 320 
006412 
01 0254 
0O7620 
00S124 
104415 
005112 
104413 
004276 
002772 
036722 
036754 
036775 
037016 
O01200 
0001 74 
001 306 
007210 
001500 
001510 
001520 
O01530 
001540 
001550 
001560 
001570 
001600 
001610 
001620 
O0163O 
001640 
001650 
001660 

001 404 
001406 
0O1410 
001310 
001412 
001414 
001 376 
001374 
001502 
001512 
001 52? 
001537 
0015 42 
001552 
OfMSfc? 
00 1 S7? 
001 607 
016 12 
00167? 



1165* 
4821 

195* 
1165* 
i 345* 

700 
1028* 
241* 
1027» 
237* 
856* 
580 
4925* 
4925* 
4925* 
4925* 
142* 
128* 
189* 
615 
280* 
285* 
290* 
295* 
300* 
305* 
310* 
315* 
320* 
375* 
330* 
335* 
340* 
345* 
350* 

263* 
264* 
265* 
190* 
266* 
267* 
260* 
259* 
281* 
286* 
291 * 
296* 
301* 
306* 
311* 
316* 
371 » 
376* 
331 • 



1405 
4830* 
485» 
1370 

741 
1031 



891 
629* 



500» 
506 
523 
1165* 



1264* 1265 



1267* 1271 



742 
1053 



1052* 
901* 



1255* 
1056* 



1269 



1351* 1534* 



565* 


591 


628 


745 


782 


1095 


1141 


1 273* 


1282 1331 


1122* 


1 123* 


1127* 


1 133* 


1 134* 


1140* 


1142* 


1292* 


1283* 1284 


1284* 


1285* 


1286 














481 


731 


1 349* 


1364* 


1526* 


1527 


1535 


1537 




1111* 


1117 


1154 


1 159 


1286* 


1287* 


1288 






1128* 


1288* 


1289* 














1291* 


1292* 


1293 


4319* 












748 


1274* 


1275* 


1 291 


4318* 
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DMS114 001642 341* 

DMS115 001652 346* 

DMS11* 001662 3511 

0MS117 001672 356# 

DM520<i 001504 282» 

DMS201 001514 287* 

DMS2"2 001524 292* 

DMS203 001534 297# 

OMS204 001544 302* 

DM5205 001554 307* 

DM5206 001564 312* 

DMS207 001574 317* 

DMS210 001S04 322* 

DMS211 001614 327* 

DMS212 001624 332* 

DM52 1 3 001634 337* 

DMS214 001644 342* 

DMS215 001654 347* 

DMS21* 001664 352* 

DMS217 00167* 357* 

0HS300 001506 2B3# 

DMS301 001516 288* 

DMS30? 001526 293* 

DMS301 001536 298* 

DMS3C4 001546 303* 

DMS305 001556 308* 

DMS30* 011566 3131 

DMS3C7 001576 318* 

DMS3 1 001606 323* 

DMS3 1 1 001616 328* 

DMS31 ? 001626 333* 

DMS313 001636 338* 

DMS311 001646 343* 

DMS315 001656 348* 

DMS316 001666 353* 

DMS317 001676 358* 

DMTt.Vl, 001402 262* 1295* 1296* 4321* 

DMTVF.C 001400 261* 1293* 1294* 1295 4320* 

DM.ENO 001700 360* 1347 

DH.MAP 001500 195 279* 485 538 548 642 1265 1267 1345 1350 1562 

DTI 037044 4925* 

DT10 017176 4925* 

DT11 037214 4925* 

DTI? 037226 4925* 

DT2 037062 4925* 

DT3 037100 4925* 

DT4 037116 4925* 

DT5 017130 4925* 

DT6 017142 4925* 

DT7 017160 4925* 

EMI 036324 4925* 

EMI 016534 4925* 

EM11 036561 4925* 

EM12 036605 4925* 

EM13 016631 4925* 

EMI a 0366«4 4925* 
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EM2 


036345 


4925* 








EM3 


OJ6401 


4925* 








EM 4 


03*422 


4925* 








EMS 


036436 


4925* 








EM6 


016470 


4925* 








EM7 


036516 


4925* 








ENDf'X 


032334 


4412 


4437* 






ENDf * 1 


012434 


4307 


4457* 


4463 


4474 


E»SE>? 


032436 


4442 


4447 


4453 


4456 


ENOEy 1 


032472 


4371 


4464* 






EPCTOO 


001704 


367* 








EPCTO 1 


001710 


370* 










nnnii 


173* 








ERCTO.l 


O01720 


376* 








ERCT04 


001 724 


379* 








ERCTOS 


001730 


382* 








ERCTOfi 


001734 


385* 








EPCT07 


001740 


388* 








EPCT10 


001744 


391* 








ERCT1 1 


001750 


394* 








EPCT 1 ? 


001754 


397* 








ERCT1 1 


001760 


400* 








ERCT1 4 


001764 


403* 








EBCT15 


001770 


406* 








ERCT1 6 


001774 


409* 








ERCT 1 7 


002000 


412* 








ERR 


002612 


589 


599* 


603 




ERRCf'T 


001232 


163* 


727 


754 


1066* 


ERRFl.r, 


001325 


202* 


483* 


713* 


775* 


ERRMSG 


005100 


1026* 


1044 


1047* 




ERRPC 


002702 


605 


6211 






ERTABO 


005224 


1041 


1075* 






EXIT = 


000205 


96* 








EXITFP 


005160 


1061 


1066* 






FLAG 


034704 


1834* 


1838 


1839 


1860* 






1934 


1952* 


1953 


1956* 






4386 


4408 


4410* 


4413 


FLOAT 


002536 


582* 


588 






FY 


00256? 


590* 


594 






HALTS 


005130 


1012 


1058* 






HILl* 


004274 


855* 


882 


900* 




ICOU>" T 


001222 


159* 


773 


778* 




IISP 


032534 


4318 


4478* 






INBI'F 


007256 


825 


861 


1180* 




INCHAS 


007560 


1206 


1234* 








001 324 


201* 


509 


529 


536* 


INSTf Ps 


104404 


223* 


876 






INSTB = 


104403 


221* 


1304 


1356 


1369 


IN5T»2 


004074 


832 


844* 






IHSTU 


035766 


4822 


4832* 






INTTY 


011734 


1 3R9 


1406 


1417 


1433 


KMC M 


O0722O 


618 


1 165* 






LIMITS 


4 3 22 


871 


8821 






LINK 


0O677O 


1165* 


1446 






LOB ITS 


" 4 3 


857* 


886 


oo?« 


903 


IOC 


ooi 22n 


1S8» 


777* 


793 


795 
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4573 
4458* 



1280* 
10J6* 



1861 
1957 
4418* 



1029 



1880* 

1960 

4435* 



1043* 1101* 



1885 
1961 
4438 



1886 

1976* 

4536 



1908* 1909 1929* 1930 1933 
1977 4339* 4350 4361 4369 
4547 4549* 4675* 4925 



795 1035 1675* 1709* 1747* 1768* 1794* 1829* 1875* S924* 
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TABLE 


USER SlMBOLS 




















1955* 


2033* 


2059* 


2094* 


2143* 


2160* 


2173* 


2)99* 


2215* 


2227* 


2252* 


2269* 


2282* 








2308* 


2325* 


2338* 


2364* 


2381* 


2394* 


2420* 


2437* 


2450* 


2476* 


2493* 


2506* 


2532* 








2549* 


2562* 


2589* 


2606* 


2619* 


2646* 


2663* 


2676* 


2703* 


2720* 


2733* 


2760* 


2777* 








2790* 


2817* 


2834* 


2847* 


2874* 


2891* 


2904* 


2935* 


2953* 


2966* 


2997* 


3014* 


3026* 








3056* 


3074* 


3087* 


3118* 


3136* 


3i49* 


3180* 


3198e 


3211* 


3242* 


326Q* 


3273* 


3304* 








3322* 


3335* 


3366* 


3384* 


3397* 


3426* 


3446* 


3459* 


3490* 


3508* 


3521* 


3552* 


3570* 








358 3* 


3614* 


3632* 


3645* 


3676* 


3694* 


3707* 


3738* 


3756* 


3769» 








LOKFi-.C. 


00' 326 




203S 


























LOL1" 


004272 




854* 


884 


8991 






















LPCNT 


001224 




160* 


772* 


773 


776* 




















tiSTEFR 


00123* 




1641 


492* 


712* 


1013 


1015* 


1102* 
















MASK/ 


001244 




172* 


























HASTE" 


006044 




1037 


1165* 
























MCPLF 


005574 




810 


933 


1 033 


1034 


1042 


1165* 


1303 


1365 












HCSP* 


005774 




717 


1165* 
























HDATft 


007320 




963 


973 


1182* 






















HEHL T m 


001 304 




188* 


680* 
























MEHSfT 


035654 




2940 


3002 


3061 


3123 


3185 


3247 


3309 


3371 


3433 


3495 


3557 


3619 


3681 








3743 


4803* 
























HEpass 


005635 




716 


1165* 
























KERRPC 


006121 




1040 


1165* 
























MERRX 


006021 




723 


1165* 
























MERP? 


005667 




1165* 


1547 
























MERP 3 


005707 




653 


1165* 
























HILK 


001322 




196* 


486* 


725 


1263* 


1268* 


1272 
















MLOO 


005745 




694 


1165* 
























MNEW 


006046 




648 


1165* 
























MODU 


006606 




1165* 


1416 
























HPASSX 


006010 




721 


1165* 
























MPFATI. 


005577 




1099 


1165* 
























MQM 


00557Q 




840 


1165* 


1327 


1402 


1412 


1425 


1439 














MR 


005657 




703 


1165* 


1321 






















HRESETs 


004000 




96* 


























MSTCtPs 


1 04412 




235* 


1104 


1637 


1711 


1749 


1796 


1831 


1877 


1926 


1993 


2035 


2096 


2145 








2201 


2254 


2310 


2366 


2422 


2478 


2534 


2591 


2648 


2705 


2762 


2819 


2876 








2937 


2999 


3058 


3120 


3182 


3244 


3306 


3368 


3430 


3492 


3554 


3616 


3678 








3740 


3801 


397 1 


4027 


4076 


4122 


4171 


4215 


4259 


4302 








MTITI.P 


001 000 




136* 


513 
























MTSTN 


0060 32 




1038 


1165* 


1 305 






















MTSTDf 


005733 




1165* 


























HVECX 


006002 




719 


1165* 
























NEXT 


001216 




157* 


779 


1 071 


1635* 


1674* 


1708* 


1746* 


1793* 


1828* 


1874* 


1923* 


1991* 


2032* 








2093* 


2142* 


2198* 


2251* 


2307* 


2563* 


24i9* 


2475* 


2531* 


2538* 


2645* 


2702* 


2759e 








2816* 


2873* 


2934* 


2996* 


3055* 


3117* 


3179* 


3241* 


3303* 


3365* 


3427* 


3489* 


3551* 








3613* 


3675* 


3737* 


3799* 


3969* 


4025* 


4074* 


4120* 


4169* 


4213* 


4257* 


4300* 




NOACT 


007056 




525 


1165* 


1257 






















NODFV 


002606 




574 


597* 
























SUM 


006352 




1165* 


1357 
























□ ISP 


O3304Q 




4320 


4545* 
























OK 


002600 




570 


573 


592 


595* 


620 


















ONE 


001 302 




187* 


























PACT" - ! 






366* 


























PACTni 


001706 






























PACTO? 


001712 




372* 


























PACTO 3 


001 716 




375* 


























PACTO i 


1 7 2 2 




378* 
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TABLE 


USER SYMBOLS 














PACTO* 


001726 




381* 


























PACT06 


001732 




384* 


























PACTO? 


001736 




387* 


























PACT n 


O01742 




390* 


























PACT1 1 


001746 




393* 


























PACT i 7 






396* 


























PACT1 3 


00175h 




399* 


























PACT 14 


001762 




402* 


























PACT 1 5 


001766 




405* 


























PACT]* 


001772 




408* 


























PACT 1 7 


001776 




41 1* 


























PARAm = 


1 04405 




225* 


1306 


1358 


1371 


1380 


1447 


1456 














PARAM 1 


004142 




860* 


877 
























PARBIT= 


040000 




96* 


























PARERS 


004216 




863 


865 


867 


876* 


883 


885 


887 














PASC'T 


001230 




162* 


714* 


715 


726 


751 


1279* 
















PERFOSs 


004537 




96* 


























PFTAR 


005332 




1100 


1106* 
























POPRO = 


012600 




72* 


1065 
























POPlSCr 


005726 




70* 


























P0P2SP= 


022626 




74* 


781 
























PRID 


006451 




1165* 


1388 
























PS = 


177776 




63* 


478* 


691* 


1574* 


1584* 


4311* 


4368* 














PU5HROS 


01 0046 




71* 


1062 
























PUSH1 Sa 


005746 




69* 


























PU5H2Ss 


024646 




73* 


























OV.FLf. 


001 327 




204* 


484* 


730* 


770 




















RAMDA T 


035550 




2947 


2960 


2973 


3008 


3020 


3032 


3068 


3081 


3094 


3130 


3143 


3156 


3192 








3205 


3218 


3254 


3267 


3280 


3316 


3329 


3342 


3378 


3391 


3404 


3440 


3453 








3466 


3502 


3515 


3528 


3564 


3577 


3590 


3626 


3639 


3652 


3688 


3701 


3714 








3750 


3763 


3776 


4770* 




















RBUF 


034767 




3812 


387 1 


3932 


3940 


4038 


4270 


4687* 














RBurr 


033746 




4327 


4660* 
























RBUFFF 


034702 




4348 


4668* 
























RBUFF1 


033746 




4661* 


























FBUFF2 


034052 




4662* 
































4*63" 


























RBUFF4 


034262 




4664* 


























RBUFF* 


034366 




4665* 


























RBOFFf- 


034472 




4666* 


























BBUFF7 


034576 




4667* 


























RCNTAfi 


033620 




4335 


4337 


4511 


4518 


4654* 


















RCOUNT 


034760 




3810 


3872 


3935 


3938 


4686* 


















RDNTAP 


033656 




4346 


4382 


4405 


4611* 


4613* 


46571 
















RECBA 


03345? 




4426 


4510 


4598 


4622* 




















RESRF^ 


0051 26 




1054 


1057* 
























RESTS » 


005252 




1086 


1092* 
























RESTPT 


003444 




729 


733 


741* 






















RESUi'F 


033450 




4345* 


4480 


4488* 


4492 


4563* 


4621* 
















RESO* = 


104407 




229* 


1057 
























RETURN 


001214 




156# 


494* 


700* 


704 


741* 


779* 


7H3 


1071* 


1073 


1105 


1320* 


1330* 


1332 


RFLS C. 


034711 




3817* 


3925 


3928* 


3953 


4677* 


















RFRF' r. 


036240 




4037 


4132 


4269 


4900* 




















ROMCI "s 


104414 




739* 


1112 


1115 


1 157 


1157 


1642 


1644 


1646 


1654 


1656 


1840 


1842 


1845 








J 847 


1 849 


1 fl P7 


1 889 


1892 


1 894 


1896 


1935 


1937 


1940 


1942 


1944 


1962 








1964 


1966 


1968 


)997 


2000 


2006 


2009 


2039 


2042 


2054 


2060 


2068 


2070 
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2072 


2106 


2150 


2152 


^1^4 






2231 


2259 


2261 




2274 






2371 


2373 


2384 


2386 


2397 






2485 


2496 


2498 


2509 


2511 






2609 


261 1 


2622 










2725 


2736 


27 38 










2850 


2852 


2881 


9BB1 


2894 






2971 


3004 




Irtl * 

, :* 








3126 


3128 


3139 


3141 


315 2 






3252 


3263 




3276 


3278 






3387 


3389 


3400 


3402 








3513 


3524 






3562 






3648 


3650 


3684 


ifi»* 








3774 


4696 




4702 




ROMDAT 


035522 


2154 


2167 


2180 


2209 


9991 
_ .fi 






2388 


2401 


2431 




2457 






2626 


2657 


2670 


2683 


2714 






2885 


2898 


2911 


4759 * 




ROMMAP 


Oil 766 


j 622V 


1801 


2100 


4766 


4701 


RUN 


001 316 


1 9 3 # 


487* 


1 261* 


1262* 


1 9tO 

1269 


SAVACT 


001312 




65 1 


1545* 






SAVNUr 


001314 


192# 


481* 


728* 


7 3 1 * 


1538* 


SAVPC 


001 276 


1 8 5 * 


603* 






1077 


5 A VPO 








»22 


4925 






001262 


l?9i 


*rio» 




9 1 6* 


923 


SAVP7 


no! 76fc 




Ol S» 


094 


4925 








101* 




Q9«! 






J . 


001270 


1 B9* 


01 i» 


094 

a?? 


4925 




SAVR5 


001 272 


1 05. 


01 9« 

912 


927 


4925 




SAVSP 


001 274 


1841 










SAVOS r 


1 04406 


227# 


1017 








SCAN 


032020 


4369* 


4469 


4472 






SCAM 


032504 


4374 


4377 


4380 


4465 


44671 


SCAN? 


0320 46 












SCOPE s 


104400 


215* 


1663* 


1697 


17 34 








2239 


2295 


2351 


2407 


946? 






7979 


3038 


3100 




1994 






3782 


3957 


4010 


4062 


4108 


SCOP1 = 


1 04401 


217* 


1690 


1726 


1763 


1776 






2172 


2185 


2214 










2406 


2436 


2449 


2462 


9409 






2662 


2675 




90ft*! 


9919 








2916 


2952 




907(1 






3161 


3197 


3210 


1991 


19SQ 












litrtT 


3520 






3706 


3719 


3755 




3781 


SETBPo 


035446 


2370 


2383 


2396 






SETPP 1 


03545 4 


2426 


2439 






1969 


SETBR4 








2508 


3311 


3 324 


SETPP7 


035470 


2538 


2551 


2564 


3373 


3386 


SETC 


0*5476 


2258 


2271 


2284 


3063 


3076 


SET 7 


035514 


2314 


2327 


2340 


3125 


3138 


SOFTS*; 


007612 


1204 


12431 








SPACNTs 


004621 


943* 


967 


970* 


984* 




STACK c 


001 200 


64* 


479 


670 


1072 


1094 


STAT 


001240 


170* 
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TABLE ' 


STAT 1 


001 366 


25 2 * 


1276* 


1677 


1712 


1750 








2255 


2311 


2367 


2423 






2938 


3000 


3059 


3121 








3741 


3802 


3807 


3819 


3831 






4172 


4177 


4216 


4221 


4260 
















STAT? 


001370 


253 * 


1277* 








STAT} 


001 372 


254* 


1278* 


3804 


3974 


4030 


STRTSW 


001236 


1691 


515* 


518* 


519 


521 
















SV05 


00431 


912* 










SWFLf; 


007556 


482* 


804 


1 199* 


1226* 


1232* 


SWMFS 


0O7107 


\ i *.*.» 


1202 








SWMFS1 


007117 




1205 








SWR 


00120? 


141* 


499* 


501 


505* 


515 








1067 


1069 


1130 


1 190 


5WRET. 


000176 


179* 

i«! 


505 


1190 


1245 




SWOO i 


000001 




519 


1352 


15SB 




SW01 - 


000002 


14* 


701 


1298 


1322 




SW02 = 


000004 


41* 










SWOT = 


000010 


49* 
* 


646 








SW04 s 


0O0020 












SW05 = 


000040 


AO* 










swos = 


0001 00 


39* 


1130 








SW07 = 


000200 


3 8 * 










SW06 * 


000400 


37 * 


1067 








swo" » 


001000 


36 * 


791 








swio = 


002000 


35 * 


1069 








swi i = 


004000 


3 4 * 


768 








swi? = 


010000 


33* 


806 


1006 






swn = 


020000 


32* 


1011 








SW14 s 


040000 


3 1 * 










SW16 = 


i ooooo 


30* 










TBUF 


034714 


3887 


3917 


3939 


3982 


... 
4041 


TBUFF 


033510 


4332 


4576 


4578 


4625* 




TCOUNT 


034712 


3R88 


3920 


4678* 






TEPP 


001416 


272* 


950 


1096* 


1097* 








3847* 


3865* 


3868* 


3874* 


1B77 






4 07 * 


4012* 


4044* 


4047* 


4000 








4366* 


4467* 






TEMPI 


001246 


173* 


539* 


1 167 


1570* 


J' ' 


TEMP2 


001 250 


1 7 4 * 


540* 


1169 


3905* 




TEMP 3 


001752 




542* 


563* 


599 


4 AO 






2118* 


3851* 


3941* 


4395* 


44RQ 


TEMP" 


001 254 


1 7 6 * 


543* 


1 173 


1374 


1197 

13 7 








4925 








TEMP5 


001 2S6 


177* 


544* 


1175 


1 355* 




TFL*^ 


034706 


3 8 1 6 * 


3910 


391 3* 


3955 


4 19* 
376* 


TIMFP = 


1 04416 


7 4 3* 










TKCSP 


001 204 


1 4 8 * 


764 


B27 


1234 


1ft 1 2 


TKDRR 


001 706 


1 49* 


766 


P29 


835 


1192 


TLAST s 


031432 


1 375 


4690* 








TPCSP 


001 210 


150* 


8 1 1 


833 


1008 


1237 


TPDP c 


001212 


151 » 


813* 


835* 


1010* 


1239* 


TPP r 'K 


0046 36 


09M 










TST":0 


001 7jft 


1M« 


493* 


1080 


1 1 OS 


1 309 



2165 
2285 
2399 
2539 
2655 
2780 
2896 
3028 
3154 
3312 
3438 
3573 
3699 
4718 
2233 
2487 
2727 



2176 
2287 
2427 
2541 
2666 
2782 
2907 
3030 
3188 
3314 
3449 
3575 
3710 
4726 
2263 
2500 
2740 



2178 
2315 
2429 
2552 
2668 
2793 
2909 
3064 
3190 
3325 
3451 
3586 
3712 
4734 
2276 
2513 
2771 



2205 
2317 
2440 
2554 
2679 
2795 
2943 
3066 
3201 
3327 
3462 
3588 
3746 
4742 
2289 
2543 
2784 



2207 
2328 
2442 
2565 
2681 
2824 
2945 
3077 
3203 
3338 
3464 
3622 
3748 
4744 
2319 
2556 
2797 



2217 
2330 
2453 
2567 
2710 
2826 
2956 
3079 
3214 
33*0 
3498 
3624 
3759 
4746 
2332 
2569 
2828 



USER SYMBOLS 



1797 
2479 
3245 
3972 
4265 



4079 
531 



651 
1225* 



1832 
2535 
3307 
3977 
4303 



4125 
533 



1878 
2592 
3369 
4028 
4308 



4174 
646 



761 



1927 
2649 
3431 
4033 
4312 



4218 
692 



1994 
2706 
3493 
4077 
4341 



4262 
701 



2036 
2763 
3555 
4082 
4558 



4305 
1298 



2219 
2341 
2455 
2596 
2712 
2837 
2958 
3090 
3216 
3374 
3500 
3635 
3761 
4754 
2345 
2600 
2841 



2229 
2343 
2483 
2596 
2723 
2639 
2969 
3092 
3250 
3376 
3511 
3637 
3772 
4780 
2375 
2613 
2854 



1817 


1863 


1911 


1979 


2019 


2080 


2129 


2186 


2519 


2575 


2632 


2689 


2746 


2803 


2860 


2917 


3286 


3348 


3410 


3472 


3534 


3596 


3658 


3720 


4157 


4201 


4245 


4283 


4457 








1812 


1856 


1903 


1951 


1975 


2053 


2120 


2159 


2268 


2281 


2294 


2324 


2337 


2350 


2380 


2393 


2505 


2518 


2546 


2561 


2574 


2605 


2618 


2631 


2745 


2776 


2789 


2802 


2833 


2846 


2859 


2890 


3013 


3025 


3037 


3073 


3086 


3099 


3135 


3148 


3272 


3285 


3321 


3334 


3347 


3383 


3396 


3409 


3533 


3569 


3582 


3595 


3631 


3644 


3657 


3693 


3213 


4707* 














3275 


4715* 














3337 


4723* 














3399 


47311 














3089 


4739* 














3151 


4751* 















2097 2146 

2820 2877 

3617 3679 

4123 4128 

4788 4845 



1322* 1352 



1143* 
3881* 
4093* 

3897* 

4458* 

1171 

4569* 

1383 

1556 
4336 



1615 
1617* 



1 149* 
3884* 
4139* 

3902* 

4470* 

1361 

4925 

1386 

4461* 
4353 



1161* 3824* 
3890* 3893* 
4142* 4185* 



4925 
1364 



4925 
4415* 



1 464* 
1453 



3827* 
3896* 
4188* 



2113* 
1459 



3835* 
3900* 
4229* 



2115* 
1462 



3838* 3844* 
3986* 3989* 
4232* 42,76* 



2116* 
3852* 



2117* 
4460* 



4417* 46761 



1707* 1745* 1792* 
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1873* 


1922* 


1990* 






2587* 


2644* 


2701* 






3364* 


3426* 


3488* 






4212* 


4256* 


4299* 


TST1 


015766 


131? 


1330 


1634# 


TST10 


017216 


■1874' 


1922* 




TST1 1 


017516 


1923 


19901 




TST1 2 


017632 


1991 


20311 




TST! 3 


020040 


2032 


2092* 




TST14 


020230 


20<»3 


2141* 




TST15 


020420 


2142 


21971 




TST16 


020574 


2198 


22501 




TST! 7 


020764 


2251 


2306* 




TST2 


016100 


1635 


16731 




TST20 


021 154 


2307 


23621 




TST21 


021344 


2363 


2418* 




TST22 


021534 


2419 


2474* 




TST23 


021724 


2475 


2530* 




TST24 


022114 


2531 


2587* 




TST2* 


022304 


2588 


2644* 




TST76 


022474 


2645 


2701* 




TST27 


022664 


2702 


2758* 




TST3 


016214 


1674 


1707* 




TST30 


023054 


2759 


2815* 




TST3I 


023244 


2816 


2872* 




TST32 


023434 


2873 


2933* 




TST33 


O23630 


2934 


2995* 




TST34 


024010 


2996 


3054* 




TST 3 5 


024204 


3055 


3116* 




T5T36 


024400 


3117 


3178* 




TST37 


024574 


3179 


3240* 




T3T4 


o i 6 3 36 


1708 


i"4b* 




TST40 


O24770 


3241 


3302* 




TST41 


025164 


3303 


3364* 




TST4 ? 


025360 


3365 


3426* 




TST4 3 


025554 


3427 


3488* 




TST44 


025750 


3489 


3550* 




TST4'i 


026141 


3551 


3612* 




TST46 


026340 


3613 


3674* 




TST4 7 


026534 


3675 


3736* 




TST5 


016516 


1746 


1792* 




TST50 


026730 


3737 


3798* 




T5T51 


027712 


3799 


3968* 




TSTS2 


010170 


3969 


4024* 




TST5 3 


03036? 


4025 


4073* 




TST5 4 


030544 


4074 


4119* 




TST55 


0307 36 


4120 


4168* 




TST56 


031114 


4169 


4212* 




T5T5 7 


031272 


4213 


4256* 




TST6 


016636 


1793 


1827* 




TST60 


031 432 


4257 


4299* 


4690 


TST7 


017024 


1828 


1873* 




TTST 


003522 


695* 


696* 


698* 


TWOSY«is 


010000 


961 








005114 


1032 


1050 


1053* 


TYPE = 


104402 


219* 


513 


525 



2031* 
2758* 
3550* 



2092* 
2815* 
3612* 



2141* 
2872* 
3674* 



2197* 
2933* 
3736* 



2250* 
2995* 
3798* 



2306* 
3054* 
3968* 



2362* 
3116* 
4024* 



2418* 
3178* 
4073* 



2474* 2530* 
3240* 3302* 
4119* 4168* 
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717 


719 


721 


723 


810 


823 


840 


933 


973 


1033 


1034 


1037 


1038 






1040 


1042 


1046 


1051 


1099 


1202 


1205 


1257 


1303 


1321 


1327 


1365 


1387 






1401 


1404 


141 1 


1415 


1424 


1431 


1438 


1547 












TYPWSr, 


005014 


1030 


1033* 
























VEC 


006430 


1165* 


1379 
























VECM&P 


01 1456 


1546 


1558* 
























WHIC* 


01 1 450 


1367 


1554* 
























WRDCHT 


004616 


941 * 


974* 


982* 






















WRKO.r 


005102 


1045 


1048* 
























WRO" 


035602 


1800 


3809 


3979 


4035 


4084 


4130 


4179 


4223 


4267 


4310 


4785* 






XBX 


004706 


1007 


1009 


1011* 






















xCHTae 


033640 


4352 


4354 


4421 


4424 


4582 


4605 


4655* 














XCSP 


003456 


718 


743* 
























XDNTAB 


033712 


4588* 


4590* 


4658* 






















XERR 


003500 


724 


752* 
























XFREir 


036272 


3981 


4040 


4086 


4135 


4272 


4913* 
















XHEAD 


006126 


537 


1165* 
























XMITBS 


033452 


4326 


4330 


4333 


4517 


4623* 


















XPASS 


003472 


722 


749* 
























XSTATO 


007230 


546 


1165* 
























XTST1 


005232 


1039 


1078* 
























XYEC 


00 1464 


720 


746* 
























XO = 


0001 1 


4626* 


4629* 


4632* 


4635* 


4638* 


4641* 


4644* 


4647* 


4650* 


4653* 








XI = 


0O0101 


4626* 


4629* 


4632* 


4635* 


4638* 


4641* 


4644* 


4647* 


4650* 










X2 = 


000102 


4626* 


4629* 


4632* 


4635* 


4638* 


4641* 


4644* 


4647* 


4650* 










X3 = 


0001 03 


4626* 


4629* 


4632* 


4635* 


4638* 


4641* 


4644* 


4647* 


4650* 










X4 = 


000104 


4626* 


4629* 


4632* 


4635* 


4638* 


4641* 


4644* 


4647* 


4650* 










X5 = 


000105 


4626* 


4629* 


4632* 


4635* 


4638* 


4641* 


4644* 


4647* 


4650* 










X6 - 


000106 


4626* 


4629* 


4632* 


4635* 


4638* 


4641* 


4644* 


4647* 


4650* 










X7 = 


0001 07 


4626* 


4629* 


4632* 


4635* 


4638* 


4641* 


4644* 


4647* 


4650* 










ZERO 


00! 300 




























SCOP r 


****** (j 


1 


























SCRAP a 


177777 


1 » 


1624* 


1627 


1630* 


1664* 


1667 


1669* 


1698* 


1701 


1703* 


1735* 


1738 


1741* 






1781* 


1784 


1788* 


1818* 


1821 


1823* 


1B64* 


1867 


1869* 


1912* 


1915 


1918* 


1980* 






1983 


1996* 


2020* 


2023 


2027* 


2081* 


2084 


2088* 


2130* 


2133 


2137* 


2187* 


2190 






2193* 


2240* 


2243 


2246* 


2296* 


2299 


2302* 


2352* 


2355 


2358* 


2408* 


2411 


2414* 






2464* 


2467 


2470* 


2520* 


2523 


2526* 


2576* 


2579 


2583* 


2633* 


2636 


2640* 


?69n* 






7693 


2697* 


2747* 


2750 


2754* 


2804* 


2807 


2811* 


2861* 


2864 


2868* 


2918* 


2921 






2929« 


2980* 


2983 


2991* 


3039* 


3042 


3050* 


3101* 


3104 


3112* 


3163* 


3166 


3174* 






3225* 


3228 


3236* 


3287* 


3290 


3298* 


3349* 


3352 


3360* 


3411* 


3414 


34221 


3473* 






3476 


3484* 


3535* 


3538 


3546* 


3597* 


3600 


3608* 


3659* 


3662 


3670* 


3721* 


3724 






3732* 


3783* 


3786 


3794* 


3958* 


3961 


3964* 


4014* 


4017 


4020* 


4063* 


4066 


4069* 






4109« 


4112 


41 15* 


4158* 


4161 


4164* 


4202* 


4205 


4208* 


4246* 


4249 


4252* 


4286* 






4289 


4295* 
























SENPAT 


00341? 


123 


511 


735* 


1058 




















SN = 


00O06O 


1 • 


1624 


1630 


1632 


1637* 


1664 


1669 


1671 


1677* 


1698 


1703 


1705 


1711 






17121 


1735 


t741 


1743 


1749 


1750* 


1781 


1788 


1790 


1796 


1797* 


1818 


1823 






1825 


1831 


1832* 


1864 


1869 


1871 


1877 


1878* 


1912 


1918 


1920 


1926 


1927* 






1980 


1986 


1988 


1993 


1994* 


2020 


2027 


2025 


2035 


2036* 


2081 


2088 


2090 






2096 


2097* 


2130 


2137 


2139 


2145 


2146* 


2187 


2193 


2195 


2201 


2202* 


2240 






2246 


7248 


2254 


2255* 


7796 


2302 


2304 


2310 


2311* 


2352 


2358 


2360 


2366 






2367* 


2408 


7414 


2416 


24?2 


2423* 


2464 


2470 


2472 


2478 


24791 


2520 


2526 






25?8 


2534 


?535» 


2576 


7583 


2585 


2591 


2592* 


2633 


2640 


2642 


2648 


2649* 






7690 


2697 


2699 


2705 


2706* 


2747 


7754 


2756 


27*2 


2763* 


2804 


2811 


2813 






7819 


2820* 


2861 


2868 


2870 


2876 


2877 « 


291 8 


2929 


2931 


2937 


2938* 


29R0 






7991. 


2993 


2999 


3ooo» 


3039 


3050 


3052 


3058 


3059* 


3101 


3112 


3114 


3120 
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31211 


3163 


3174 


3176 


3182 






3300 


3306 


3307* 


3349 


3360 






3473 


3484 


3486 


3492 


3493* 






3616 


3617* 


3659 


3670 


3672 






3794 


3796 


3801 


3802* 


3958 






4028* 


4063 


4069 


4071 


4076 






4166 


4171 


4172* 


4202 


4208 






4286 


4295 


4297 


4302 


4303* 


SS s 


000062 


It 


1635 


1637* 


1674 


1677* 






1874 


1878* 


1923 


1927* 


1991 






2202t 


2251 


2255* 


2307 


2311* 






2588 


25921 


2645 


2649* 


2702 






293R* 


2996 


3000* 


3055 


3059* 






3365 


3369* 


3427 


3431* 


3489 






37411 


3799 


3802* 


3969 


3972* 






4213 


4216* 


4257 


4260* 


4303* 


SY = 


000017 


1* 


207* 


215 


217* 


219* 






237t 


239* 


241* 


243* 


245* 


m - 


037430 


108* 


109 


112* 


119* 


124* 






273« 


2781 


280* 


281* 


282* 






293f 


295* 


296* 


297* 


298* 






310* 


311* 


3t2t 


313* 


315* 






326* 


327* 


328* 


330* 


331* 






342* 


343* 


345* 


346* 


347* 






358* 


517 


527 


638* 


655 






1 353 


1397 


1500 


1504 


1550 






3805 


3808 


3820 


3823 


3826 






3915 


3918 


3921 


3926 


3930 






4029 


4031 


4034 


4046 


4078 






4155 


4173 


4175 


4178 


4183 






4263 


4266 


4304 


4306 


4309 






4623* 


4654* 


4655* 


4657* 


4658* 






4689* 


4846 


4849 


4876 


4879 


.BEG I K ' 


003062 


670* 










.CNVPT 


004400 


234 


934* 








.cowvc 


OOH374 


232 


933* 








.DATAC 


005454 


242 


1137* 








.DELAV 


O0534O 


238 


1110* 








.EOP 


003274 


711* 


4300 








.ERRTi 


037270 


1025 


4925* 








.HLT 


004656 


115 


1005* 








.INSTf 


0"4062 


224 


840* 








. INST R 


003756 


222 


819* 








.INST1 


00377S 


823* 


943 








.MSG 


004000 


821* 


824* 








.MSTCI. 


005370 


236 


1121* 








.PARS* 


00410? 


226 


851* 








,PFA 1 1 


005240 


113 


480 


1085* 


1093 




.PESOS 


004342 


230 


922* 








.ROMC! 


0*5406 


240 


1126* 








,SAV<^ 


0(14302 


228 


908* 








.SCOFF 


00350fi 


216 


759* 








.SCOP1 


003644 


218 


790* 








.STAPT 


002002 


132 


478* 


494 


1222 




.TIMFE 


0O5520 


244 


1148* 








.TRPS C 


004624 


117 


993* 









3183* 


3225 


3236 


3238 


3244 


3245* 


3287 


3298 


3362 


3368 


3369* 


3411 


3422 


3424 


3430 


3431* 


3535 


3546 


3548 


3554 


3555* 


3597 


3608 


3610 


3678 


3679* 


3721 


3732 


3734 


3740 


3741* 


3783 


3964 


3966 


3971 


3972* 


4014 


4020 


4022 


4027 


4077* 


4109 


4115 


4117 


4122 


4123* 


4158 


4164 


4210 


4215 


4216* 


4246 


4252 


4254 


4259 


4260* 


4690* 
















1708 


1712* 


1746 


1750* 


1793 


1797* 


1828 


1832* 


1994* 


2032 


2036* 


2093 


2097* 


2142 


21 46* 


2198 


2363 


2367* 


2419 


2423* 


2475 


2479* 


2531 


2535* 


27061 


2759 


2763* 


2816 


2820* 


2873 


2877* 


2934 


3117 


3121* 


3179 


3183* 


3241 


3245* 


3303 


3307* 


3493* 


3551 


3555* 


3613 


3617* 


3675 


3679* 


3737 


402S 


4028* 


4074 


4077* 


4120 


4123* 


4169 


4172* 


221* 


223* 


225* 


227* 


229* 


231* 


233* 


235* 


127* 


131* 


135* 


137* 


189* 


190* 


191* 


192* 


283* 


285* 


286* 


287* 


288* 


290* 


291* 


292* 


300* 


301* 


302* 


303* 


305* 


306* 


307* 


308* 


316* 


317* 


318* 


320* 


321* 


322* 


323* 


325* 


332* 


333* 


335* 


336* 


337* 


338* 


340* 


341* 


348* 


3501 


351* 


352* 


353* 


355* 


356* 


357* 


1088 


1098 


1146* 


1181* 


1183* 


1235 


1238 


1259 


1581 


1613 


1616 


2046 


2051 


2066 


2078 


3803 


3832 


3837 


3867 


3876 


3883 


3892 


3906 


3911 


3933 


3936 


3945 


3950 


3973 


3975 


3978 


3988 


4080 


4083 


4092 


4106 


4124 


4126 


4129 


4141 


4199 


4217 


4219 


4222 


4227 


4231 


4243 


4261 


4342 


4359 


4398 


4491 


4523 


4559 


4562 


4565 


4661* 


4662* 


4663* 


4664* 


4665* 


4666* 


4667* 


4687* 
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DZD^n 


KACYU 


27C1O0S5 


1 4=CEC 


-76 IS! 


32 PAG 






















PAGE: 


DZDMM.pu 09 


-or.c-76 


14159 




CROSS 


REFERENCE 


TABLE 


-- MACRO 


NAMES 














DMGN0 


1 * 


705 






























DMFPNT 


j 1 
































HLT 


75t 


1652 


1662 


1689 


1725 




1762 


1775 


1809 


1855 


1902 


1950 


1974 


2015 


2052 


2067 






25 19 


2158 


2171 


2184 




2213 


2225 


2237 


2267 


2280 


2293 


2323 


2336 


2349 


2379 






2405 


2435 


2448 


2461 




2491 


2504 


2517 


2547 


2560 


2573 


2604 


2617 


2630 


2661 




jail 


2687 


2718 


2731 


2744 




2775 


27S8 


2801 


2832 


2845 


2858 


2889 


2902 


2915 


2951 






2977 


3012 


3024 


3036 




3072 


3085 


3098 


3134 


3147 


3160 


3196 


3209 


3222 


3258 




327 i 


3284 


3320 


3333 


3346 




3382 


3395 


3408 


3444 


3457 


3470 


3506 


3519 


3532 


3568 






3594 


3630 


3643 


3656 




3692 


3705 


3718 


3754 


3767 


3780 


3829 


3840 


3853 


3855 




»97n 


3879 


3886 


3895 


3904 




3907 


3912 


3916 


3919 


3922 


3927 


3931 


3934 


3937 


3946 






3993 


3997 


4005 


4051 




4055 


4061 


4097 


4101 


4107 


4146 


4150 


4156 
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